| line |
true |
false |
branch |
|
11
|
10 |
0 |
defined &B::GVf_IMPORTED_CV ? : |
|
97
|
0 |
39 |
if ref $class |
|
101
|
51 |
378 |
exists $args{$_} ? : |
|
104
|
4 |
35 |
if (exists $args{'private'} or exists $args{'also_private'}) |
|
108
|
54 |
2 |
ref $_ ? : |
|
|
1 |
3 |
exists $args{'also_private'} ? : |
|
114
|
0 |
39 |
unless my $package = $new->{'package'} |
|
116
|
1 |
38 |
unless (eval {
do {
require (__pack_to_pm($package));
1
}
}) |
|
132
|
1 |
50 |
if $self->{'broken'} |
|
141
|
3 |
35 |
unless (grep $_, values %symbols) |
|
151
|
1 |
41 |
unless my $symbols = $self->symbols |
|
154
|
1 |
40 |
unless my $total = scalar keys %$symbols |
|
168
|
0 |
7 |
unless my $symbols = $self->symbols |
|
180
|
0 |
2 |
unless my $symbols = $self->symbols |
|
190
|
0 |
2 |
unless defined $rating |
|
196
|
2 |
0 |
if (@uncovered) |
|
212
|
8 |
0 |
unless @_ |
|
214
|
0 |
0 |
@_ == 1 ? : |
|
222
|
76 |
0 |
unless @search |
|
233
|
76 |
18314 |
$search eq 'main::' ? : |
|
258
|
38 |
0 |
$package->can('DOES') ? : |
|
|
0 |
38 |
$package->can('does') ? : |
|
273
|
0 |
89 |
unless $package =~ /\A$PACKAGE_RE\z/ |
|
282
|
0 |
50 |
if ($self->package eq $package and defined $self->{'pod_from'}) |
|
287
|
0 |
50 |
unless my $full = $INC{$mod} |
|
289
|
48 |
0 |
-e $full ? : |
|
|
2 |
48 |
-e $maybe_pod ? : |
|
294
|
38 |
12 |
if ($self->package eq $package) |
|
307
|
38 |
0 |
if $self->{'trust_roles'} |
|
309
|
38 |
0 |
if $self->{'trust_parents'} |
|
320
|
1 |
49 |
if ($self->{'nonwhitespace'}) |
|
328
|
0 |
50 |
unless my $pod = $self->_pod_for($pack) |
|
338
|
19 |
38 |
if $self->{'_parsed'} |
|
343
|
50 |
0 |
$parser ? : |
|
346
|
4 |
34 |
if ($self->{'require_link'}) |
|
357
|
2 |
0 |
exists $parsed{$_} ? : |
|
374
|
1 |
37 |
if ($self->{'export_only'}) { } |