1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
#!/usr/bin/perl -w
use perl5i::latest;
use Test::More;
# Test with a hash ref
{
my $hash;
my $val = $hash->{key};
is $hash, undef, "hash ref does not autoviv";
$val = $hash->{key1}{key2};
is $hash, undef, "hash ref does not autoviv";
}
# And a regular hash
{
my %hash;
my $val = $hash{key};
is_deeply scalar %hash->keys, [], "hash key does not autoviv";
$val = $hash{key1}{key2};
is_deeply scalar %hash->keys, [], "hash key does not autoviv";
}
done_testing();
|