6 unshift @INC, "../lib";
13 use constant MyClass => 'Foo::Bar::Biz::Baz';
16 package Foo::Bar::Biz::Baz;
19 for (qw(Foo Foo:: MyClass __PACKAGE__)) {
20 eval "sub { my $_ \$obj = shift; }";
25 use constant NoClass => 'Nope::Foo::Bar::Biz::Baz';
27 for (qw(Nope Nope:: NoClass)) {
28 eval "sub { my $_ \$obj = shift; }";