view release on metacpan or  search on metacpan

xt/cover.pl  view on Meta::CPAN

#!/usr/bin/perl

use 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";