use strict;
use warnings;

package ExplodingTiger;

## import the 2 functions above somehow

@ExplodingTiger::ISA = qw(Tiger Bomb);

redefines("Tiger", "explode", "spontaneouslyCombust");

sub new {
    my ($class) = @_;
    my $exploding_tiger = {
        bomb_type => "Bomb"
    };
    return bless($exploding_tiger, ref($class) || $class);
}

sub explode {
    my ($self, @args) = @_;
    print "ROAR!!! I'm an exploding Tiger!\n";
    $self->next_method($self->{bomb_type}, @args);
}

1;