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; }";