Select Code to Download

package Some::Class;

...
    my ($self, $quux) = @_;
    ...
}

my $thing = Some::Class->new( id => 15, foo => "Hello" );
$thing->foo =~ s/e/a/;
...

$thing->blah = 10;
$thing->blah = 60;  # dies