File Coverage

_build/lib/Module/Build/Custom.pm
Criterion Covered Total %
statement 8 13 61.5
branch 2 4 50.0
condition n/a
subroutine 2 3 66.6
pod 0 2 0.0
total 12 22 54.5


line stmt bran cond sub pod time code
1             package Module::Build::Custom;
2 1     1   952 use Module::Build;
  1         118752  
  1         186  
3             our @ISA = qw(Module::Build);
4              
5             sub ACTION_test {
6 1     1 0 78 my $self = shift;
7 1 50       12 if ( $self->notes('TEST_MYSQL_DSN') ) {
8 0         0 $ENV{$_} = $self->notes($_) for qw(
9             TEST_MYSQL_DSN TEST_MYSQL_USER TEST_MYSQL_PASS
10             );
11             }
12 1         23 foreach my $name ( qw( LONG_TESTS TEST_SQLITE ) ) {
13 2 50       32 $ENV{$name} = 1 if $self->notes( $name );
14             }
15              
16 1         24 $self->SUPER::ACTION_test( @_ );
17             }
18             sub ACTION_dist {
19 0     0 0   my $self = shift;
20 0           my $v = $self->dist_version;
21 0           system
22             $^X,
23             "-pi -le",
24             q"$line = $. if ?VERSION?; "
25             . q"$_ = q<" . $v . q"> if $line && $. == $line+2",
26             "lib/DBM/Deep.pod";
27 0           $self->SUPER::ACTION_dist( @_ );
28             }
29            
30             1;