package Tiger;
use base qw(Mammal Bomb);

##</code><code>##

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

##</code><code>##

  sub new {
      my ($class, $data) = @_;
      # deliberately simplistic!
      $data->{_bomb} = Bomb->new;
      bless $data, $class;
  }

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

##</code><code>##

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

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

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

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