File Coverage

_build/lib/Data/Shark/Builder.pm

Criterion	Covered	Total	%
statement	3	13	23.0
branch			n/a
condition			n/a
subroutine	1	3	33.3
pod	0	2	0.0
total	4	18	22.2

package Data::Shark::Builder;
use Module::Build;
@ISA = qw(Module::Build);

	 	sub ACTION_dist {
			my $self = shift;
			`perldoc -t lib/Data/Shark.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;