1#!./perl 2 3package Foo; 4 5BEGIN { 6 chdir 't' if -d 't'; 7 @INC = '../lib'; 8} 9 10use Test; 11 12plan tests => 7; 13 14use constant MyClass => 'Foo::Bar::Biz::Baz'; 15 16{ 17 package Foo::Bar::Biz::Baz; 18 1; 19} 20 21for (qw(Foo Foo:: MyClass __PACKAGE__)) { 22 eval "sub { my $_ \$obj = shift; }"; 23 ok ! $@; 24# print $@ if $@; 25} 26 27use constant NoClass => 'Nope::Foo::Bar::Biz::Baz'; 28 29for (qw(Nope Nope:: NoClass)) { 30 eval "sub { my $_ \$obj = shift; }"; 31 ok $@; 32# print $@ if $@; 33} 34