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";
}