package Dog;
use fields qw/intelligence/

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

sub intelligence {
    my Dog $self = shift;
    $self->{intelligence};
}