| line |
true |
false |
branch |
|
26
|
0 |
8 |
unless eval {
do {
require Fcntl;
"Fcntl"->import("SEEK_SET");
1
}
} |
|
29
|
0 |
8 |
if ($INC{'Log/Contextual.pm'}) { } |
|
118
|
1 |
119 |
unless defined $filename and -f $filename |
|
126
|
1 |
4 |
unless defined $handle and defined $filename |
|
141
|
1 |
6 |
unless defined $filename and -f $filename |
|
218
|
0 |
2 |
if @_ % 2 |
|
222
|
0 |
2 |
if $args{'dir'} and $args{'files'} |
|
225
|
0 |
2 |
unless defined $args{'version'} |
|
228
|
0 |
2 |
unless grep(($args{'version'} eq $_), ("1.4", 2)) |
|
230
|
1 |
1 |
unless defined $args{'prefix'} |
|
233
|
2 |
0 |
if ($args{'dir'}) { } |
|
238
|
0 |
0 |
unless ref $args{'files'} eq "ARRAY" |
|
243
|
2 |
0 |
if (length $args{'prefix'}) |
|
258
|
1 |
3 |
if ($files) { } |
|
264
|
3 |
3 |
if -f $_ and /\.pm$/ |
|
281
|
4 |
16 |
if $package eq "main" |
|
282
|
4 |
12 |
if $package eq "DB" |
|
283
|
4 |
8 |
if grep /^_/, split(/::/, $package, 0) |
|
287
|
4 |
4 |
if lc $prime_package eq lc $package |
|
288
|
4 |
4 |
if ($package eq $prime_package) { } |
|
289
|
0 |
4 |
if (exists $prime{$package}) { } |
|
293
|
4 |
0 |
if lc "$package.pm" eq lc $mapped_filename |
|
295
|
4 |
0 |
if defined $version |
|
313
|
0 |
4 |
if (exists $prime{$package}) { } |
|
315
|
0 |
0 |
if ($result->{'err'}) { } |
|
|
0 |
0 |
elsif (defined $result->{'version'}) { } |
|
330
|
0 |
0 |
if (exists $prime{$package}{'version'} and defined $prime{$package}{'version'}) { } |
|
334
|
0 |
0 |
if (&$compare_versions($prime{$package}{'version'}, "!=", $result->{'version'})) |
|
363
|
0 |
4 |
if ($result->{'err'}) |
|
374
|
4 |
0 |
if defined $result->{'version'} |
|
399
|
0 |
129 |
if scalar %props |
|
416
|
125 |
4 |
unless ($handle) |
|
418
|
0 |
125 |
unless open $handle, "<", $filename |
|
427
|
123 |
6 |
unless ($self->{'module'} and length $self->{'module'}) |
|
429
|
114 |
9 |
if ($self->{'filename'} =~ /\.pm$/) { } |
|
440
|
8 |
1 |
if (grep /main/, @{$$self{'packages'};} or grep /main/, keys %{$$self{'versions'};}) { } |
|
452
|
102 |
27 |
if defined $self->{'module'} |
|
466
|
0 |
10 |
if -e $testfile and not -d _ |
|
470
|
7 |
3 |
if -e $testfile |
|
478
|
1 |
7 |
unless my $found = (shift())->_do_find_module(@_) |
|
484
|
0 |
0 |
unless my $found = (shift())->_do_find_module(@_) |
|
496
|
118 |
21 |
if ($line =~ /$VERS_REGEXP/o) |
|
497
|
3 |
115 |
$2 ? : |
|
498
|
20 |
98 |
if ($package) |
|
499
|
5 |
15 |
$package eq '::' ? : |
|
513
|
0 |
125 |
unless defined $pos |
|
517
|
0 |
125 |
unless defined $count and $count >= 2 |
|
520
|
1 |
124 |
if ($buf eq "\376\377") { } |
|
|
1 |
123 |
elsif ($buf eq "\377\376") { } |
|
|
1 |
122 |
elsif ($buf eq "\357\273") { } |
|
529
|
1 |
0 |
if (defined $count and $count >= 1 and $buf eq "\277") |
|
534
|
3 |
122 |
if (defined $encoding) { } |
|
535
|
3 |
0 |
if ("$]" >= "5.008") |
|
540
|
0 |
122 |
unless seek $fh, $pos, 0 |
|
566
|
98 |
1648 |
if ($line =~ /^=([a-zA-Z].*)/) |
|
574
|
462 |
1284 |
if ($in_pod) { } |
|
|
10 |
1274 |
elsif ($is_cut) { } |
|
576
|
45 |
417 |
if ($line =~ /^=head[1-4]\s+(.+)\s*$/) { } |
|
|
25 |
392 |
elsif ($self->{'collect_pod'}) { } |
|
578
|
4 |
41 |
if ($self->{'collect_pod'} and length $pod_data) |
|
585
|
1 |
24 |
if ($self->{'decode_pod'} and $line =~ /^=encoding ([\w-]+)/) |
|
593
|
2 |
8 |
if ($self->{'collect_pod'} and length $pod_data) |
|
602
|
2 |
1272 |
if $in_end |
|
605
|
98 |
1174 |
if $line =~ /^\s*#/ |
|
608
|
2 |
1172 |
if ($line eq "__END__") |
|
613
|
1 |
1171 |
if $line eq "__DATA__" |
|
616
|
139 |
1032 |
index($line, 'VERSION') >= 1 ? : |
|
621
|
156 |
1015 |
if ($line =~ /$PKG_REGEXP/o or $line =~ /$CLASS_REGEXP/x) { } |
|
|
20 |
995 |
elsif ($version_fullname and $version_package) { } |
|
|
8 |
987 |
elsif ($package eq 'main' and $version_fullname and not exists $vers{'main'}) { } |
|
|
9 |
978 |
elsif ($package eq 'main' and not exists $vers{'main'} and $line =~ /\w/) { } |
|
|
87 |
1779 |
elsif ($version_fullname and $need_vers) { } |
|
624
|
151 |
5 |
unless grep(($package eq $_), @packages) |
|
625
|
19 |
137 |
defined $version ? : |
|
627
|
19 |
137 |
if (not exists $vers{$package} and defined $version) |
|
630
|
0 |
19 |
unless defined $dwim_version |
|
639
|
7 |
13 |
if $version_package eq $package |
|
641
|
18 |
2 |
unless (defined $vers{$version_package} and length $vers{$version_package}) |
|
666
|
87 |
0 |
unless (defined $vers{$package} and length $vers{$package}) |
|
672
|
1 |
128 |
if ($self->{'collect_pod'} and length $pod_data) |
|
676
|
1 |
128 |
if ($self->{'decode_pod'} and $encoding) |
|
713
|
113 |
0 |
if $eval =~ /^(.+)/s |
|
720
|
0 |
113 |
if ($@ =~ /Can't locate/ and -d "lib") |
|
724
|
0 |
113 |
if $@ |
|
727
|
0 |
113 |
unless ref $vsub eq "CODE" |
|
732
|
0 |
113 |
if $@ |
|
739
|
0 |
113 |
unless defined $version |
|
787
|
5 |
127 |
if ref $result eq "version" |
|
793
|
12 |
127 |
if $@ |
|
794
|
127 |
12 |
if defined $version |
|
797
|
0 |
127 |
unless defined $version |
|
817
|
99 |
17 |
if (defined $mod and length $mod and exists $self->{'versions'}{$mod}) { } |
|
829
|
3 |
2 |
if (defined $sect and length $sect and exists $self->{'pod'}{$sect}) { } |
|
844
|
6 |
2 |
if $package |