t/op/my_stash.t

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