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