- my $acc = shift;
- print "account inserted: ", Dumper($acc);
- print "account name is ", $acc->name, " and balance is ", $acc->bank_balance, "\n";
- #$acc->name("FOOOOBAR!");
- if ($acc->name eq 'Vacation') {
- $acc->remove;
- $ACC = $acc;
- }
- print Dumper($acc->is_inserted);
- if ($acc->is_inserted) {
- print "IT IS INSERTED\n";
- } else {
- print "not inserted\n";
- }
- print Dumper($acc->transactions);
- });
+ my $acc = shift;
+ print "account inserted: ", Dumper($acc);
+ print "account name is ", $acc->name, " and balance is ", $acc->bank_balance, "\n";
+ #$acc->name("FOOOOBAR!");
+ if ($acc->name eq 'Vacation') {
+ $acc->remove;
+ $ACC = $acc;
+ }
+ print Dumper($acc->is_inserted);
+ if ($acc->is_inserted) {
+ print "IT IS INSERTED\n";
+ } else {
+ print "not inserted\n";
+ }
+ print Dumper($acc->transactions);
+ });