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