Select Code to Download

package Dog;
use fields qw/intelligence/
...
    my Dog $self = shift;
    $self->{intelligence};
}

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

sub intelligence {
    my $self = shift;
    $self->{inteligence}; # typo
}