| line |
true |
false |
branch |
|
108
|
43 |
185 |
if (/^:([\w\d]+)/) |
|
110
|
1 |
42 |
if ($tagname eq 'all') |
|
114
|
2 |
40 |
unless (grep /^$tagname$/i, keys %EXPORT_TAGS) |
|
179
|
1 |
9 |
if ($_ eq 'all') { } |
|
182
|
0 |
1 |
unless opendir $h, $libdir |
|
183
|
11 |
2 |
if not /^(\.+|\.svn|auto|CVS)$/ |
|
188
|
3 |
8 |
unless (grep {$_ eq $dir;} keys %TAG_MAP) |
|
216
|
2 |
40 |
if ($INC{$pkgpath}) { } |
|
224
|
2 |
122 |
if ($METHODMAP{$name} or grep /^$name$/, @EXPORT_OK) |
|
225
|
2 |
0 |
if $pkgname eq $METHODMAP{$name} |
|
239
|
13 |
109 |
if ($name =~ /^[A-Z_]+$/) |
|
245
|
21 |
20 |
if @$names and ref $import eq 'CODE' |
|
251
|
18 |
21 |
if (UNIVERSAL::can($pkgname, 'new')) { } |
|
|
5 |
16 |
elsif (UNIVERSAL::can($pkgname, 'TIEHASH') or UNIVERSAL::can($pkgname, 'TIEARRAY') or UNIVERSAL::can($pkgname, 'TIESCALAR')) { } |
|
253
|
0 |
18 |
if ($OBJECTMAP{$aka}) |
|
262
|
0 |
5 |
if ($KNOTMAP{$aka}) |
|
289
|
0 |
12 |
unless opendir $fh, $dir |
|
295
|
0 |
94 |
if (-d "$dir/$name") { } |
|
300
|
47 |
47 |
if $name =~ s/\.pm$// |
|
315
|
47 |
0 |
defined $TAG_MAP{$dir} ? : |
|
332
|
0 |
24 |
unless $OBJECTMAP{$aka} |
|
345
|
0 |
0 |
unless $KNOTMAP{$_[0]} |
|
374
|
0 |
0 |
unless (defined $Hub) |
|
390
|
0 |
2 |
unless my $ns = shift() |
|
404
|
0 |
0 |
unless my $ns = shift() |
|
405
|
0 |
0 |
if @_ |
|
418
|
0 |
0 |
unless @caller |
|
419
|
0 |
0 |
if $caller[2] == 0 |
|
469
|
1 |
0 |
if (check('-test=blessed', $Hub)) |