Aggregate pattern: Difference between revisions

Revision as of 23:18, 12 May 2005

Revision as of 22:42, 18 May 2005

Line 9:

$subtotal += $item->query_price();

}

my $weight;

foreach my $item (@cart) {

$weight += $item->query_weight();

}

# and so on

Line 26:

package Cart::Basket;

@ISA = qw(Cart::Item);

sub query_price {

my $self = shift;

Line 35:

}

}

# other query_ routines here...

sub add_item {

my $self = shift;