9 use constant MyClass => 'Foo::Bar::Biz::Baz';
12 package Foo::Bar::Biz::Baz;
15 for (qw(Foo Foo:: MyClass __PACKAGE__)) {
16 eval "sub { my $_ \$obj = shift; }";
21 use constant NoClass => 'Nope::Foo::Bar::Biz::Baz';
23 for (qw(Nope Nope:: NoClass)) {
24 eval "sub { my $_ \$obj = shift; }";