| line |
true |
false |
branch |
|
59
|
54 |
25 |
if $name =~ / [.] (?i: pl | pm | t | xs ) $ /x
|
|
61
|
0 |
25 |
if @$lines and $lines->[0] =~ / ^ \#\! .* perl /xi
|
|
109
|
0 |
18 |
if (defined $bump)
|
|
118
|
0 |
78 |
unless &GetOptions("help|?", \$help, "man", \$man, "current=s", \$current, "set=s", \$set, "dirskip=s", \@dir_skip, map({my $opt = $_;
|
|
120
|
0 |
10 |
if (defined $force_to)
|
|
132
|
0 |
78 |
if $help
|
|
133
|
0 |
78 |
if $man
|
|
135
|
0 |
78 |
if $set and $bump
|
|
148
|
77 |
1 |
@ARGV ? :
|
|
150
|
0 |
78 |
unless @files
|
|
154
|
0 |
78 |
if (my(@missing) = grep({not -e $_;} @files))
|
|
161
|
0 |
78 |
if (my(@bad_type) = grep({not defined $documents{$_}{'type'};} keys %documents))
|
|
170
|
6 |
72 |
if (@got == 0) { }
|
|
|
0 |
72 |
elsif (@got > 1) { }
|
|
171
|
6 |
0 |
defined $current ? :
|
|
183
|
19 |
53 |
if ($set) { }
|
|
|
18 |
35 |
elsif (defined $bump) { }
|
|
188
|
12 |
6 |
if ($bump eq 'auto') { }
|
|
189
|
2 |
10 |
if ($new_ver->is_alpha) { }
|
|
199
|
6 |
0 |
if ($bump > $pos)
|
|
216
|
0 |
35 |
if $force_to
|
|
220
|
31 |
35 |
if (defined $new_ver)
|
|
269
|
0 |
31 |
unless my $new_version = shift()
|
|
273
|
10 |
21 |
if ($force_to)
|
|
289
|
10 |
21 |
if ($force_to) { }
|
|
316
|
5 |
1373 |
unless @$state
|
|
320
|
119 |
3093 |
if (my(@match) = $line =~ /$trans->{'re'}/x)
|
|
321
|
79 |
40 |
if ($trans->{'mark'})
|
|
323
|
6 |
73 |
if defined $version and "$version" ne "$ver"
|
|
336
|
13 |
100 |
if (my $code = $trans->{'exec'})
|
|
340
|
50 |
63 |
if (my $goto = $trans->{'goto'})
|
|
453
|
79 |
79 |
unless &$filter($info->{'type'})
|
|
456
|
0 |
79 |
unless my $machine = $machines{$info->{'type'}}
|
|
465
|
72 |
6 |
unless (defined $version)
|
|
468
|
62 |
10 |
if @found == 1
|
|
480
|
79 |
37 |
if $try->{'test'}->($name, $info)
|
|
507
|
79 |
0 |
if (open my $fh, "<$mode", $file)
|
|
512
|
79 |
0 |
if $args{'array_ref'}
|
|
520
|
0 |
31 |
if ($dryrun) { }
|
|
526
|
0 |
31 |
unless open my $fh, ">:raw", $doc
|
|
530
|
31 |
0 |
if defined $mode
|
|
536
|
321 |
7 |
unless $quiet
|
|
540
|
1 |
0 |
if (my $dir = find_project('File::Spec'->curdir)) { }
|
|
543
|
2 |
3 |
if (my $got = exists_in($dir, $obj))
|
|
548
|
0 |
1 |
unless (@files)
|
|
565
|
0 |
0 |
unless @list
|
|
578
|
156 |
79 |
if (-d $obj) { }
|
|
|
79 |
0 |
elsif ($obj =~ /$match/) { }
|
|
579
|
0 |
156 |
unless opendir my $dh, $obj
|
|
599
|
6 |
7 |
if ($name =~ m[^(.+)/$]) { }
|
|
601
|
2 |
4 |
unless -d $try
|
|
605
|
3 |
4 |
unless -f $try
|
|
619
|
6 |
2 |
if exists_in($start, $file)
|
|
621
|
1 |
0 |
if $score >= 1
|