final fixes for live reference objects as opposed to the clones which were being...

[scpubgit/stemmatology.git] / lib / Text / Tradition / TypeMap / Entry.pm

diff --git a/lib/Text/Tradition/TypeMap/Entry.pm b/lib/Text/Tradition/TypeMap/Entry.pm
index 00cdfd1..50dfb51 100644 (file)
--- a/lib/Text/Tradition/TypeMap/Entry.pm
+++ b/lib/Text/Tradition/TypeMap/Entry.pm
@@ -16,7 +16,6 @@ sub compile_collapse_body {
         my ( $self, %args ) = @_;
 
         my $object = $args{object};
-
         return $self->make_entry(
             %args,
             data => YAML::XS::Dump($object)
@@ -29,9 +28,9 @@ sub compile_expand {
 
     return sub {
         my ( $self, $entry ) = @_;
-        $self->inflate_data( YAML::XS::Load($entry->data), \( my $obj ), $entry );
-
+       $self->inflate_data( YAML::XS::Load($entry->data), \(my $obj), $entry );
         bless $obj, $class;
+       return $obj;
     };
 }