summaryrefslogtreecommitdiffstats
path: root/contrib/perl5/t/op/my_stash.t
diff options
context:
space:
mode:
authormarkm <markm@FreeBSD.org>2002-05-16 10:09:28 +0000
committermarkm <markm@FreeBSD.org>2002-05-16 10:09:28 +0000
commitf56e05005c751822074f0a22aa9a98d2eb189924 (patch)
treee28fc632241c9d248069d45dd9ab2a41fa64868f /contrib/perl5/t/op/my_stash.t
parent344ddc14973a1519f100f54051dcb068069fe43c (diff)
downloadFreeBSD-src-f56e05005c751822074f0a22aa9a98d2eb189924.zip
FreeBSD-src-f56e05005c751822074f0a22aa9a98d2eb189924.tar.gz
Perl is no longer in base. Long live the port!
Diffstat (limited to 'contrib/perl5/t/op/my_stash.t')
-rwxr-xr-xcontrib/perl5/t/op/my_stash.t31
1 files changed, 0 insertions, 31 deletions
diff --git a/contrib/perl5/t/op/my_stash.t b/contrib/perl5/t/op/my_stash.t
deleted file mode 100755
index 4a1d502..0000000
--- a/contrib/perl5/t/op/my_stash.t
+++ /dev/null
@@ -1,31 +0,0 @@
-#!./perl
-
-package Foo;
-
-BEGIN {
- @INC = '../lib';
-}
-
-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 $@;
-}
OpenPOWER on IntegriCloud