12345678910111213 #!perl -wuse Test;plan tests => 5;use mylib qw($Prefix $Bin $Lib $Etc);use Foo;ok($Foo::VERSION);ok($Prefix);ok("$Prefix/lib", $Lib);ok("$Prefix/etc", $Etc);ok($Bin);
#!perl -w
use
Test;
plan
tests
=> 5;
mylib
qw($Prefix $Bin $Lib $Etc)
;
Foo;
ok(
$Foo::VERSION
);
$Prefix
"$Prefix/lib"
,
$Lib
"$Prefix/etc"
$Etc
$Bin