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

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