| line |
true |
false |
branch |
|
78
|
147 |
549 |
if ($args{'suggests'} or $args{'recommends'}) |
|
81
|
147 |
549 |
if ($args{'suggests'}) |
|
84
|
83 |
613 |
if ($args{'perl_minimum_version'}) |
|
88
|
2778 |
702 |
if (exists $args{'_'}{$type}) |
|
109
|
0 |
2 |
unless %{$self->{'keyword'};} |
|
135
|
0 |
260 |
unless my $optional = $self->{$key} |
|
138
|
260 |
0 |
if (my $requires = $self->{'requires'}) |
|
141
|
0 |
102 |
if (defined $requires->requirements_for_module($module) and $requires->accepts_module($module, $hash->{$module})) |
|
153
|
9 |
1040 |
if ($self->{'optional'}) { } |
|
178
|
95 |
89 |
unless $self->{'perl'} |
|
185
|
1 |
1294 |
unless is_module_name($module) |
|
187
|
17 |
1277 |
unless my $CMR = $self->_object($type) |
|
188
|
6 |
1271 |
unless defined $version |
|
189
|
0 |
1277 |
if ($self->{'verbose'}) |
|
190
|
0 |
0 |
unless (defined $CMR->requirements_for_module($module)) |
|
219
|
0 |
12 |
unless is_module_name($module) |
|
221
|
1 |
11 |
unless my $CMR = $self->_object($type) |
|
222
|
10 |
1 |
defined $CMR->requirements_for_module($module) ? : |
|
227
|
42 |
1833 |
if ($self->{'eval'}) { } |
|
|
7 |
1826 |
elsif ($self->{'force_cond'}) { } |
|
|
87 |
1739 |
elsif ($key and $key eq 'conditional') { } |
|
|
565 |
1174 |
elsif (not $key) { } |
|
232
|
16 |
71 |
if ($self->{'cond'}) { } |
|
|
17 |
54 |
elsif (grep {$_->[2] ne 'BEGIN' if $_->[0] eq '{';} @{[] unless $self->{'stack'};}) { } |
|
234
|
25 |
0 |
if $_->[0] eq "{" |
|
|
0 |
71 |
unless $self->{'stack'} |
|
242
|
20 |
1855 |
unless $self->{$key} |
|
257
|
2 |
567 |
unless $self->_object |
|
264
|
60 |
1486 |
if (@_) |
|
267
|
1425 |
121 |
unless exists $self->{'prototype_re'} |
|
273
|
205 |
1 |
unless exists $self->{'quotelike_re'} |
|
283
|
0 |
1 |
unless $self->{'quotelike'} |
|
289
|
26 |
611 |
if exists $default_expects_block_list{$token} |
|
290
|
611 |
0 |
unless exists $self->{'expects_block_list'} |
|
291
|
0 |
0 |
if exists $self->{'expects_block_list'}{$token} |
|
297
|
0 |
0 |
if exists $default_expects_fh_list{$token} |
|
298
|
0 |
0 |
unless exists $self->{'expects_fh_list'} |
|
299
|
0 |
0 |
if exists $self->{'expects_fh_list'}{$token} |
|
305
|
15 |
3 |
if exists $default_expects_fh_or_block_list{$token} |
|
306
|
3 |
0 |
unless exists $self->{'expects_fh_or_block_list'} |
|
307
|
0 |
0 |
if exists $self->{'expects_fh_or_block_list'}{$token} |
|
313
|
212 |
356 |
if exists $default_expects_expr_block{$token} |
|
314
|
356 |
0 |
unless exists $self->{'expects_expr_block'} |
|
315
|
0 |
0 |
if exists $self->{'expects_expr_block'}{$token} |
|
321
|
2399 |
26358 |
if exists $default_expects_block{$token} |
|
322
|
24614 |
1744 |
unless exists $self->{'expects_block'} |
|
323
|
286 |
1458 |
if exists $self->{'expects_block'}{$token} |
|
329
|
973 |
1481 |
if exists $default_expects_word{$token} |
|
330
|
1258 |
223 |
unless exists $self->{'expects_word'} |
|
331
|
110 |
113 |
if exists $self->{'expects_word'}{$token} |
|
337
|
2 |
14 |
if exists $default_conditional_keywords{$token} |
|
338
|
14 |
0 |
unless exists $self->{'is_conditional_keyword'} |
|
339
|
0 |
0 |
if exists $self->{'is_conditional_keyword'}{$token} |
|
345
|
3273 |
2185 |
if exists $defined_keywords{$token} |
|
346
|
1517 |
668 |
unless exists $self->{'defined_keywords'} |
|
347
|
252 |
416 |
if exists $self->{'defined_keywords'}{$token} |
|
353
|
163 |
3342 |
if exists $default_op_keywords{$token} |
|
354
|
3314 |
28 |
unless exists $self->{'defined_op_keywords'} |
|
355
|
1 |
27 |
if exists $self->{'defined_op_keywords'}{$token} |
|
361
|
27 |
3314 |
if (exists $new_keyword_since{$token}) |
|
383
|
0 |
0 |
if exists $self->{'defined_keywords'}{$keyword} and not $self->{'defined_keywords'}{$keyword} |
|
399
|
148 |
423 |
if $token eq "sub" |
|
400
|
316 |
107 |
unless exists $self->{'defines_sub'} |
|
401
|
102 |
5 |
if exists $self->{'defines_sub'}{$token} |
|
407
|
18 |
619 |
exists $enables_utf8{$module} ? : |
|
417
|
630 |
66 |
unless $self->{'packages'} |
|
424
|
148 |
152 |
unless $self->{$rel} |
|
432
|
613 |
83 |
unless $self->{'perl'} |
|
435
|
11 |
72 |
if ($self->{'perl'}->accepts_module('perl', $perl)) { } |