Help for this page

Select Code to Download


  1. or download this
    package Private;
use strict;
...
SOFTWARE.

=cut
  2. or download this
    use Private;

...
    my $amount = shift;
    $self->balance($self->balance+$amount);
}