1234567891011121314151617181920 #!/usr/bin/perluse 5.008;use strict;use warnings;no warnings 'all';use File::Basename;use File::Spec;use Cwd;BEGIN { chdir dirname(__FILE__) or die "$!"; chdir '..' or die "$!";}do "./Build.PL";local @ARGV = (@ARGV, 'testcover');do "./Build";
#!/usr/bin/perl
use
5.008;
strict;
warnings;
no
warnings
'all'
;
File::Basename;
File::Spec;
Cwd;
BEGIN {
chdir
dirname(__FILE__) or
die
"$!"
'..'
or
}
do
"./Build.PL"
local
@ARGV
= (
,
'testcover'
);
"./Build"