Object::add_object to return added object

mohawk2 · mohawk2 · commit 7bf83b40c7a9 · 2026-01-02T21:20:28.000Z
diff --git a/lib/PDL/Graphics/TriD/Object.pm b/lib/PDL/Graphics/TriD/Object.pm
@@ -58,6 +58,7 @@ sub add_object {
     $object->add_changedsub($_);
   }
   $object->add_changedsub(sub {$this->changed_from_above()});
+  $object;
 }
 
 sub contained_objects {

Original file line number	Diff line number	Diff line change
`@@ -58,6 +58,7 @@ sub add_object {`
`58`	`58`	`$object->add_changedsub($_);`
`59`	`59`	`}`
`60`	`60`	`$object->add_changedsub(sub {$this->changed_from_above()});`
	`61`	`+ $object;`
`61`	`62`	`}`
`62`	`63`
`63`	`64`	`sub contained_objects {`