| line |
true |
false |
branch |
|
11
|
11 |
0 |
defined &B::GVf_IMPORTED_CV ? : |
|
106
|
0 |
42 |
if ref $class |
|
110
|
4 |
80 |
if (exists $args{$alias}) |
|
112
|
0 |
4 |
if (exists $args{$to}) |
|
120
|
60 |
444 |
exists $args{$_} ? : |
|
123
|
4 |
38 |
if (exists $args{'private'} or exists $args{'also_private'}) |
|
127
|
57 |
2 |
ref $_ ? : |
|
|
1 |
3 |
exists $args{'also_private'} ? : |
|
133
|
0 |
42 |
unless my $package = $new->{'package'} |
|
135
|
1 |
41 |
unless (eval {
do {
require (__pack_to_pm($package));
1
}
}) |
|
151
|
1 |
53 |
if $self->{'broken'} |
|
160
|
3 |
38 |
unless (grep $_, values %symbols) |
|
170
|
1 |
44 |
unless my $symbols = $self->symbols |
|
173
|
1 |
43 |
unless my $total = scalar keys %$symbols |
|
187
|
0 |
7 |
unless my $symbols = $self->symbols |
|
199
|
0 |
2 |
unless my $symbols = $self->symbols |
|
209
|
0 |
2 |
unless defined $rating |
|
215
|
2 |
0 |
if (@uncovered) |
|
231
|
9 |
0 |
unless @_ |
|
233
|
0 |
0 |
@_ == 1 ? : |
|
241
|
45 |
0 |
unless @search |
|
252
|
45 |
11049 |
$search eq 'main::' ? : |
|
277
|
39 |
0 |
$package->can('DOES') ? : |
|
|
2 |
39 |
$package->can('does') ? : |
|
281
|
37 |
4 |
if (not $does or $package->can($does) == \&UNIVERSAL::DOES) |
|
295
|
0 |
98 |
unless $package =~ /\A$PACKAGE_RE\z/ |
|
304
|
0 |
56 |
if ($self->package eq $package and defined $self->{'pod_from'}) |
|
309
|
0 |
56 |
unless my $full = $INC{$mod} |
|
311
|
54 |
0 |
-e $full ? : |
|
|
2 |
54 |
-e $maybe_pod ? : |
|
316
|
41 |
15 |
if ($self->package eq $package) |
|
330
|
41 |
0 |
$self->{'trust_roles'} ? : |
|
|
41 |
0 |
$self->{'trust_parents'} ? : |
|
341
|
1 |
55 |
if ($self->{'require_content'}) |
|
349
|
0 |
56 |
unless my $pod = $self->_pod_for($pack) |
|
359
|
20 |
41 |
if $self->{'_parsed'} |
|
364
|
56 |
0 |
$parser ? : |
|
367
|
7 |
34 |
if ($self->{'require_link'}) |
|
378
|
3 |
0 |
exists $parsed{$_} ? : |
|
395
|
1 |
40 |
if ($self->{'export_only'}) { } |
|
464
|
38 |
0 |
$self->{'trust_pod'} ? : |