package Dragon;

  sub _init
  {
     my $self = shift;
     my %args = @_;
     foreach my $key qw(NAME AGE COLOR) {
        $self->{$key} = $args{$key};
     }
     $self->awaken();
  }

  package Trogdor;
  
  sub new
  {
     my $class = shift;
     $class->new(@_,
        NAME  => "Trogdor",
        AGE   => "one year old";
        COLOR => "green");
  }