package Dog::Base;

use strict;
my %basic_attr = (
	legs=>4,
	tail=>1,
	nose=>'wet',
);
sub new {
	my $class = shift;
	my $self = {} unless ref $class;
	$self = {
			base=>{%basic_attr},
			breed=>{},
	};
	return bless($self, $class);
}

1;