Select Code to Download

package Persist;

...
    # mark and item as changed so it should be saved
    $self->{_change}++;
};

package VendingMachine;
use base qw(Persist);
...
        $self->give_change($money - $item->cost);
    };
};