Select Code to Download

my $object = Class->new();
my $self = \$object;

$object->restore();

...
    my $self = shift;
    $self = restore();
}

sub deserialize {
    my $class = shift;
...
sub restore_me {
    $_[0] = $_[0]->restore();
}