| 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'}) { } |
|
107
|
1 |
100 |
unless defined $filename and -f $filename |
|
115
|
1 |
4 |
unless defined $handle and defined $filename |
|
130
|
1 |
6 |
unless defined $filename and -f $filename |
|
207
|
0 |
2 |
if @_ % 2 |
|
211
|
0 |
2 |
if $args{'dir'} and $args{'files'} |
|
214
|
0 |
2 |
unless defined $args{'version'} |
|
217
|
0 |
2 |
unless grep(($args{'version'} eq $_), ('1.4', '2')) |
|
219
|
1 |
1 |
unless defined $args{'prefix'} |
|
222
|
2 |
0 |
if ($args{'dir'}) { } |
|
227
|
0 |
0 |
unless ref $args{'files'} eq 'ARRAY' |
|
232
|
2 |
0 |
if (length $args{'prefix'}) |
|
247
|
1 |
3 |
if ($files) { } |
|
253
|
3 |
3 |
if -f $_ and /\.pm$/ |
|
270
|
4 |
16 |
if $package eq 'main' |
|
271
|
4 |
12 |
if $package eq 'DB' |
|
272
|
4 |
8 |
if grep /^_/, split(/::/, $package, 0) |
|
276
|
4 |
4 |
if lc $prime_package eq lc $package |
|
277
|
4 |
4 |
if ($package eq $prime_package) { } |
|
278
|
0 |
4 |
if (exists $prime{$package}) { } |
|
282
|
4 |
0 |
if lc "$package.pm" eq lc $mapped_filename |
|
284
|
4 |
0 |
if defined $version |
|
302
|
0 |
4 |
if (exists $prime{$package}) { } |
|
304
|
0 |
0 |
if ($result->{'err'}) { } |
|
|
0 |
0 |
elsif (defined $result->{'version'}) { } |
|
319
|
0 |
0 |
if (exists $prime{$package}{'version'} and defined $prime{$package}{'version'}) { } |
|
323
|
0 |
0 |
if (&$compare_versions($prime{$package}{'version'}, '!=', $result->{'version'})) |
|
352
|
0 |
4 |
if ($result->{'err'}) |
|
363
|
4 |
0 |
if defined $result->{'version'} |
|
388
|
0 |
110 |
if scalar %props |
|
405
|
106 |
4 |
unless ($handle) |
|
407
|
0 |
106 |
unless open $handle, '<', $filename |
|
416
|
104 |
6 |
unless ($self->{'module'} and length $self->{'module'}) |
|
418
|
95 |
9 |
if ($self->{'filename'} =~ /\.pm$/) { } |
|
429
|
8 |
1 |
if (grep /main/, @{$$self{'packages'};} or grep /main/, keys %{$$self{'versions'};}) { } |
|
441
|
86 |
24 |
if defined $self->{'module'} |
|
455
|
0 |
10 |
if -e $testfile and not -d _ |
|
459
|
7 |
3 |
if -e $testfile |
|
467
|
1 |
7 |
unless my $found = (shift())->_do_find_module(@_) |
|
473
|
0 |
0 |
unless my $found = (shift())->_do_find_module(@_) |
|
485
|
116 |
19 |
if ($line =~ /$VERS_REGEXP/o) |
|
486
|
3 |
113 |
$2 ? : |
|
487
|
20 |
96 |
if ($package) |
|
488
|
5 |
15 |
$package eq '::' ? : |
|
502
|
0 |
106 |
unless defined $pos |
|
506
|
0 |
106 |
unless defined $count and $count >= 2 |
|
509
|
1 |
105 |
if ($buf eq "\376\377") { } |
|
|
1 |
104 |
elsif ($buf eq "\377\376") { } |
|
|
1 |
103 |
elsif ($buf eq "\357\273") { } |
|
518
|
1 |
0 |
if (defined $count and $count >= 1 and $buf eq "\277") |
|
523
|
3 |
103 |
if (defined $encoding) { } |
|
524
|
3 |
0 |
if ("$]" >= 5.008) |
|
529
|
0 |
103 |
unless seek $fh, $pos, 0 |
|
555
|
96 |
1594 |
if ($line =~ /^=([a-zA-Z].*)/) |
|
563
|
454 |
1236 |
if ($in_pod) { } |
|
|
10 |
1226 |
elsif ($is_cut) { } |
|
565
|
44 |
410 |
if ($line =~ /^=head[1-4]\s+(.+)\s*$/) { } |
|
|
25 |
385 |
elsif ($self->{'collect_pod'}) { } |
|
567
|
4 |
40 |
if ($self->{'collect_pod'} and length $pod_data) |
|
574
|
1 |
24 |
if ($self->{'decode_pod'} and $line =~ /^=encoding ([\w-]+)/) |
|
582
|
2 |
8 |
if ($self->{'collect_pod'} and length $pod_data) |
|
591
|
2 |
1224 |
if $in_end |
|
594
|
98 |
1126 |
if $line =~ /^\s*#/ |
|
597
|
2 |
1124 |
if ($line eq '__END__') |
|
602
|
1 |
1123 |
if $line eq '__DATA__' |
|
605
|
135 |
988 |
index($line, 'VERSION') >= 1 ? : |
|
610
|
136 |
987 |
if ($line =~ /$PKG_REGEXP/o) { } |
|
|
20 |
967 |
elsif ($version_fullname and $version_package) { } |
|
|
8 |
959 |
elsif ($package eq 'main' and $version_fullname and not exists $vers{'main'}) { } |
|
|
8 |
951 |
elsif ($package eq 'main' and not exists $vers{'main'} and $line =~ /\w/) { } |
|
|
85 |
1729 |
elsif ($version_fullname and $need_vers) { } |
|
613
|
132 |
4 |
unless grep(($package eq $_), @packages) |
|
614
|
6 |
130 |
defined $version ? : |
|
616
|
6 |
130 |
if (not exists $vers{$package} and defined $version) |
|
619
|
0 |
6 |
unless defined $dwim_version |
|
628
|
7 |
13 |
if $version_package eq $package |
|
630
|
18 |
2 |
unless (defined $vers{$version_package} and length $vers{$version_package}) |
|
655
|
85 |
0 |
unless (defined $vers{$package} and length $vers{$package}) |
|
661
|
1 |
109 |
if ($self->{'collect_pod'} and length $pod_data) |
|
665
|
1 |
109 |
if ($self->{'decode_pod'} and $encoding) |
|
702
|
111 |
0 |
if $eval =~ /^(.+)/s |
|
709
|
0 |
111 |
if ($@ =~ /Can't locate/ and -d 'lib') |
|
713
|
0 |
111 |
if $@ |
|
716
|
0 |
111 |
unless ref $vsub eq 'CODE' |
|
721
|
0 |
111 |
if $@ |
|
728
|
0 |
111 |
unless defined $version |
|
776
|
5 |
112 |
if ref $result eq 'version' |
|
782
|
12 |
112 |
if $@ |
|
783
|
112 |
12 |
if defined $version |
|
786
|
0 |
112 |
unless defined $version |
|
806
|
85 |
15 |
if (defined $mod and length $mod and exists $self->{'versions'}{$mod}) { } |
|
818
|
3 |
2 |
if (defined $sect and length $sect and exists $self->{'pod'}{$sect}) { } |
|
833
|
6 |
2 |
if $package |