Select Code to Download

# private method add
my $add = sub {
...
        my $amount = shift;
        $self->balance($self->balance+$amount);
};

# private method padd
sub padd {
...
        print caller(0) . " " . __PACKAGE__;
        $self->balance($self->balance+$amount);
}