diff options
author | Doug MacEachern <dougm@covalent.net> | 2000-06-27 07:17:28 -0700 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-06-28 14:45:23 +0000 |
commit | ec6a9911b75518dd4c77eb4985d8bee0371df340 (patch) | |
tree | 40b57b6beb8216c3bb2f108a36e06b617dc80d00 /t | |
parent | cab27d238e930b8cddb5b1fb3260355f913b86a6 (diff) | |
download | perl-ec6a9911b75518dd4c77eb4985d8bee0371df340.tar.gz |
Re: [PATCH] support 'my __PACKAGE__ $obj = ...'
Message-ID: <Pine.LNX.4.10.10006271412340.7587-100000@mojo.covalent.net>
p4raw-id: //depot/cfgperl@6250
Diffstat (limited to 't')
-rw-r--r-- | t/op/my_stash.t | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/t/op/my_stash.t b/t/op/my_stash.t new file mode 100644 index 0000000000..ba266bfea2 --- /dev/null +++ b/t/op/my_stash.t @@ -0,0 +1,27 @@ +#!./perl + +package Foo; + +use Test; + +plan tests => 7; + +use constant MyClass => 'Foo::Bar::Biz::Baz'; + +{ + package Foo::Bar::Biz::Baz; +} + +for (qw(Foo Foo:: MyClass __PACKAGE__)) { + eval "sub { my $_ \$obj = shift; }"; + ok ! $@; +# print $@ if $@; +} + +use constant NoClass => 'Nope::Foo::Bar::Biz::Baz'; + +for (qw(Nope Nope:: NoClass)) { + eval "sub { my $_ \$obj = shift; }"; + ok $@; +# print $@ if $@; +} |