1N/A#!./perl
1N/A
1N/Apackage Foo;
1N/A
1N/ABEGIN {
1N/A chdir 't' if -d 't';
1N/A @INC = '../lib';
1N/A}
1N/A
1N/Ause Test;
1N/A
1N/Aplan tests => 7;
1N/A
1N/Ause constant MyClass => 'Foo::Bar::Biz::Baz';
1N/A
1N/A{
1N/A package Foo::Bar::Biz::Baz;
1N/A 1;
1N/A}
1N/A
1N/Afor (qw(Foo Foo:: MyClass __PACKAGE__)) {
1N/A eval "sub { my $_ \$obj = shift; }";
1N/A ok ! $@;
1N/A# print $@ if $@;
1N/A}
1N/A
1N/Ause constant NoClass => 'Nope::Foo::Bar::Biz::Baz';
1N/A
1N/Afor (qw(Nope Nope:: NoClass)) {
1N/A eval "sub { my $_ \$obj = shift; }";
1N/A ok $@;
1N/A# print $@ if $@;
1N/A}