| line |
true |
false |
branch |
|
11
|
0 |
0 |
if $name =~ / [.] (?i: pl | pm | t ) $ /x |
|
13
|
0 |
0 |
if @$lines and $lines->[0] =~ / ^ \#\! .* perl /xi |
|
17
|
0 |
0 |
unless $is_perl |
|
18
|
0 |
0 |
unless $lines |
|
25
|
0 |
0 |
unless open my $fh, "<:raw", $name |
|
45
|
0 |
0 |
unless $dirty |
|
48
|
0 |
0 |
unless open my $fh, ">:raw", $self->{'name'} |
|
78
|
0 |
0 |
if $line =~ /# No BumpVersion/ |
|
81
|
0 |
0 |
unless @$state |
|
85
|
0 |
0 |
if (my(@match) = $line =~ /$trans->{'re'}/) |
|
86
|
0 |
0 |
if ($trans->{'mark'}) |
|
99
|
0 |
0 |
if (my $code = $trans->{'exec'}) |
|
103
|
0 |
0 |
if (my $goto = $trans->{'goto'}) |