package Animal::Dog;
use base "Animal";

use strict;
use warnings;

sub new {
    my ($class) = @_;
    my $self = $class->SUPER::new();
    $$self{domesticated} = 1;
    return $self;
} 

1;