my $object = Class->new(); my $self = \$object; #### $object->restore(); sub restore { my $self = shift; $self = restore(); } #### sub deserialize { my $class = shift; return $class->restore(); } sub restore_me { $_[0] = $_[0]->restore(); }
## $object->restore(); sub restore { my $self = shift; $self = restore(); } ##
## sub deserialize { my $class = shift; return $class->restore(); } sub restore_me { $_[0] = $_[0]->restore(); }