| line |
true |
false |
branch |
|
11
|
25 |
0 |
defined &B::GVf_IMPORTED_CV ? : |
|
106
|
0 |
70 |
if ref $class |
|
110
|
4 |
136 |
if (exists $args{$alias}) |
|
112
|
0 |
4 |
if (exists $args{$to}) |
|
120
|
89 |
751 |
exists $args{$_} ? : |
|
123
|
8 |
62 |
if (exists $args{'private'} or exists $args{'also_private'}) |
|
127
|
281 |
2 |
ref $_ ? : |
|
|
5 |
3 |
exists $args{'also_private'} ? : |
|
133
|
0 |
70 |
unless my $package = $new->{'package'} |
|
135
|
1 |
69 |
unless (eval {
do {
require (__pack_to_pm($package));
1
}
}) |
|
151
|
1 |
86 |
if $self->{'broken'} |
|
160
|
8 |
61 |
unless (grep $_, values %symbols) |
|
170
|
1 |
72 |
unless my $symbols = $self->symbols |
|
173
|
4 |
68 |
unless my $total = scalar keys %$symbols |
|
187
|
0 |
11 |
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
|
73 |
0 |
unless @search |
|
252
|
73 |
21256 |
$search eq 'main::' ? : |
|
277
|
67 |
0 |
$package->can('DOES') ? : |
|
|
2 |
67 |
$package->can('does') ? : |
|
281
|
65 |
4 |
if (not $does or $package->can($does) == \&UNIVERSAL::DOES) |
|
295
|
0 |
159 |
unless $package =~ /\A$PACKAGE_RE\z/ |
|
304
|
0 |
89 |
if ($self->package eq $package and defined $self->{'pod_from'}) |
|
309
|
0 |
89 |
unless my $full = $INC{$mod} |
|
311
|
85 |
0 |
-e $full ? : |
|
|
4 |
85 |
-e $maybe_pod ? : |
|
316
|
69 |
20 |
if ($self->package eq $package) |
|
330
|
69 |
0 |
$self->{'trust_roles'} ? : |
|
|
69 |
0 |
$self->{'trust_parents'} ? : |
|
341
|
1 |
88 |
if ($self->{'require_content'}) |
|
349
|
0 |
89 |
unless my $pod = $self->_pod_for($pack) |
|
359
|
26 |
69 |
if $self->{'_parsed'} |
|
364
|
89 |
0 |
$parser ? : |
|
367
|
8 |
61 |
if ($self->{'require_link'}) |
|
378
|
3 |
0 |
exists $parsed{$_} ? : |
|
395
|
1 |
68 |
if ($self->{'export_only'}) { } |
|
409
|
375 |
3 |
unless utf8::is_utf8($_) |
|
470
|
50 |
0 |
$self->{'trust_pod'} ? : |