Select Code to Download

sub add_expense { # takes Expense object as argument and adds it to _E
+XPENSES array
    my $self = shift;
...
    push(@expenses,$newexp);
    $self->{_EXPENSES} = \@expenses;
}

    my $self = shift;
    my $newexp = shift;

my ($self, $newexp) = @_;

my @expenses = @{$self->{_EXPENSES}};

sub add_expense { # takes Expense object as argument and adds it to _E
+XPENSES array
    my ($self, $newexp) = shift;
    $self->{_EXPENSES}{$newexp} = $newexp;
}