Select Code to Download

package Tiger;
use base qw(Mammal Bomb);

  sub Tiger::explode {
      my $self = shift;
      $self->Bomb::explode;
  }

  sub new {
      my ($class, $data) = @_;
      # deliberately simplistic!
...
      my $self = shift;
      $self->{_bomb}->explode;
  }

  sub set_timer {
      my $self = shift;
      $self->Bomb::set_timer;
...
      my $self = shift;
      $self->Bomb::disarm;
  }