1N/A av.c
1N/A
1N/A Mandatory Warnings ALL TODO
1N/A ------------------
1N/A av_reify called on tied array [av_reify]
1N/A
1N/A Attempt to clear deleted array [av_clear]
1N/A
1N/A__END__
1N/A# av.c
1N/A$struct = [{foo => 1, bar => 2}, "FOO", "BAR"];
1N/Ause warnings 'deprecated';
1N/A$a = $struct->{foo}; # This should warn.
1N/Ano warnings 'deprecated';
1N/A$b = $struct->{bar}; # This should not warn.
1N/Abless $struct, 'HlagHlag';
1N/Ause warnings 'deprecated';
1N/A$a = $struct->{foo}; # This should warn.
1N/Ano warnings 'deprecated';
1N/A$b = $struct->{bar}; # This should not warn.
1N/AEXPECT
1N/APseudo-hashes are deprecated at - line 4.
1N/APseudo-hashes are deprecated at - line 9.
1N/A########
1N/Apackage Foo;
1N/Ause warnings 'deprecated';
1N/Ause fields qw(foo bar);
1N/Amy $foo = fields::new('Foo');
1N/A$foo->{foo} = 42;
1N/AEXPECT