1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
package Testophile;
use v5.8;
use File::Spec::Functions qw( catpath );
use Symbol qw( qualify_to_ref );
use Test::More tests => 2;
BEGIN { mkdir './blib/blort', 0555 }
END { rmdir './blib/blort' }
require FindBin::libs;
SKIP:
{
2.0 < FindBin::libs->VERSION
or skip "Test for new version", 2;
FindBin::libs->import
(
qw
(
base=blib
subdir=blort
subonly
export=snark
scalar
)
);
my $ref = qualify_to_ref 'snark';
my $expect = catpath '' => qw( blib blort );
my $value = ${ *$ref };
ok $value, "Exported scalar '\$snark'";
like $value, qr{\Q$expect\E $}x, "Found 'blib/blort' ($value)";
}
__END__
|
