Select Code to Download

sub foo 
{
...
    $self->{foo} = shift if @_;
    return $self->{foo};
}

for my $field (qw(name race aliases)) {
    my $slot = __PACKAGE__ . "::$field";
...
        return $self->{$slot};
    };
}

#!/usr/bin/perl
use strict;
...

print "Baz: ", $obj->baz, "\n";
print "Bah: ", $obj->bah, "\n";

Baz: 1
Bah: 2

#!/usr/bin/perl
use strict;
...
$obj->faz();
$obj->destroy_methods();
$obj->faz();