package Trogdor;
use strict;
use base qw(Dragon);

sub _init {
    my $self = shift;
    $self->{NAME} = "Trogdor";
    $self->{AGE}  = "one year old";
    $self->{COLOR}= "green";
}

sub burninate {
    my $self = shift;
    print $self->get_name ." burninates the land!\n";
}
1;