package Dragon

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