package Dog;
use fields qw/intelligence/;

sub new {
    my $pkg = shift;
    my Dog $self = $pkg->fields::new;
    $self->{inteligence}; # typo again, but this time it doesn't compile
    $self;
}