14 use constant MyClass => 'Foo::Bar::Biz::Baz';
17 package Foo::Bar::Biz::Baz;
21 for (qw(Foo Foo:: MyClass __PACKAGE__)) {
22 eval "sub { my $_ \$obj = shift; }";
27 use constant NoClass => 'Nope::Foo::Bar::Biz::Baz';
29 for (qw(Nope Nope:: NoClass)) {
30 eval "sub { my $_ \$obj = shift; }";