Cross Reference: my_stash.t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
t
/
op
/
my_stash.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
1
N/A
#!./perl
1
N/A
1
N/A
package
Foo
;
1
N/A
1
N/A
BEGIN
{
1
N/A
chdir
't'
if
-d
't'
;
1
N/A
@
INC
=
'../lib'
;
1
N/A
}
1
N/A
1
N/A
use
Test
;
1
N/A
1
N/A
plan
tests
=>
7
;
1
N/A
1
N/A
use
constant
MyClass
=>
'Foo::Bar::Biz::Baz'
;
1
N/A
1
N/A
{
1
N/A
package
Foo
::
Bar
::
Biz
::
Baz
;
1
N/A
1
;
1
N/A
}
1
N/A
1
N/A
for
(
qw
(
Foo
Foo
::
MyClass
__PACKAGE__
)
)
{
1
N/A
eval
"sub { my $_ \$obj = shift; }"
;
1
N/A
ok
! $@;
1
N/A
# print $@ if $@;
1
N/A
}
1
N/A
1
N/A
use
constant
NoClass
=>
'Nope::Foo::Bar::Biz::Baz'
;
1
N/A
1
N/A
for
(
qw
(
Nope
Nope
::
NoClass
)
)
{
1
N/A
eval
"sub { my $_ \$obj = shift; }"
;
1
N/A
ok
$@;
1
N/A
# print $@ if $@;
1
N/A
}