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

sub _init {
    my $self = shift;
    if ($self->SUPER::_init( @_ )) {
        $self->{NAME} = "Trogdor";
        $self->{AGE}  = "one year old";
        $self->{COLOR}= "green";
        $self->burninate;
    }
    print "Trogdor::_init got called\n";
}

sub awaken {
    my $self = shift;
    ($self->get_name eq "nameless") ? print "A " : 0;
    print $self->get_name .", ";
    ($self->get_name ne "nameless") ? print "an " : 0;
    print $self->get_age .", ";
    print $self->get_color ." dragon awakens from his slumber!(from Trogdor)\n";
}

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