package Dog;
use fields qw/intelligence/;

sub new {
    my $pkg = shift;
    my $self = $pkg->fields::new();
    $self->{intelligence} = shift;
    $self;
}