package Test::XML::Valid::Builder;
use Module::Build;
@ISA = qw(Module::Build);
sub ACTION_dist {
my $self = shift;
`perldoc -t lib/Test/XML/Valid.pm>README`;
$self->SUPER::ACTION_dist;
}
sub ACTION_cover {
my $self = shift;
$self->depends_on('build');
system qw( cover -delete );
# sometimes we get failing tests, which makes Test::Harness
# die. catch that
eval {
local $ENV{PERL5OPT} = "-MDevel::Cover=-summary,0";
$self->ACTION_test(@_);
};
system qw( cover -report html );
}
1;
syntax highlighted by Code2HTML, v. 0.9.1