First page Back Continue Last page Overview Graphics

Simple Ball Class – Method

sub bounce {
my $self=shift;
print “I bounced the ball.\n”;
}
sub throw {
my $self=shift;
print “I threw the ”,$self->color, “ ball.\n”;
}