package dog;

sub new {
   my $proto=shift;
   my $class=ref($proto)||$proto;
   my $self = { # I'll add attrs later...
         };
   bless $self,$class;
   return $self;
}

1;