13 use constant MyClass => 'Foo::Bar::Biz::Baz';
16 package Foo::Bar::Biz::Baz;
20 for (qw(Foo Foo:: MyClass __PACKAGE__)) {
21 eval "sub { my $_ \$obj = shift; }";
26 use constant NoClass => 'Nope::Foo::Bar::Biz::Baz';
28 for (qw(Nope Nope:: NoClass)) {
29 eval "sub { my $_ \$obj = shift; }";
34 is runperl(prog => 'my main $r; sub FIELDS; $$r{foo}; print qq-ok\n-'),
36 'no crash with hash element when FIELDS sub stub exists';
37 is runperl(prog => 'my main $r; sub FIELDS; @$r{f,b}; print qq-ok\n-'),
39 'no crash with hash slice when FIELDS sub stub exists';