| line |
true |
false |
branch |
|
78
|
148 |
591 |
if ($args{'suggests'} or $args{'recommends'}) |
|
81
|
148 |
591 |
if ($args{'suggests'}) |
|
84
|
83 |
656 |
if ($args{'perl_minimum_version'}) |
|
88
|
2950 |
745 |
if (exists $args{'_'}{$type}) |
|
109
|
0 |
2 |
unless %{$self->{'keyword'};} |
|
135
|
0 |
262 |
unless my $optional = $self->{$key} |
|
138
|
262 |
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 |
1141 |
if ($self->{'optional'}) { } |
|
178
|
109 |
89 |
unless $self->{'perl'} |
|
185
|
1 |
1395 |
unless is_module_name($module) |
|
187
|
17 |
1378 |
unless my $CMR = $self->_object($type) |
|
188
|
6 |
1372 |
unless defined $version |
|
189
|
0 |
1378 |
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 |
2024 |
if ($self->{'eval'}) { } |
|
|
7 |
2017 |
elsif ($self->{'force_cond'}) { } |
|
|
87 |
1930 |
elsif ($key and $key eq 'conditional') { } |
|
|
655 |
1275 |
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 |
2046 |
unless $self->{$key} |
|
257
|
2 |
657 |
unless $self->_object |
|
264
|
102 |
1500 |
if (@_) |
|
267
|
1425 |
177 |
unless exists $self->{'prototype_re'} |
|
273
|
205 |
1 |
unless exists $self->{'quotelike_re'} |
|
283
|
0 |
1 |
unless $self->{'quotelike'} |
|
289
|
26 |
639 |
if exists $default_expects_block_list{$token} |
|
290
|
639 |
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 |
27148 |
if exists $default_expects_block{$token} |
|
322
|
24749 |
2399 |
unless exists $self->{'expects_block'} |
|
323
|
404 |
1995 |
if exists $self->{'expects_block'}{$token} |
|
329
|
1018 |
1636 |
if exists $default_expects_word{$token} |
|
330
|
1303 |
333 |
unless exists $self->{'expects_word'} |
|
331
|
172 |
161 |
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
|
3318 |
2410 |
if exists $defined_keywords{$token} |
|
346
|
1562 |
848 |
unless exists $self->{'defined_keywords'} |
|
347
|
314 |
534 |
if exists $self->{'defined_keywords'}{$token} |
|
353
|
163 |
3449 |
if exists $default_op_keywords{$token} |
|
354
|
3421 |
28 |
unless exists $self->{'defined_op_keywords'} |
|
355
|
1 |
27 |
if exists $self->{'defined_op_keywords'}{$token} |
|
361
|
27 |
3421 |
if (exists $new_keyword_since{$token}) |
|
383
|
0 |
0 |
if exists $self->{'defined_keywords'}{$keyword} and not $self->{'defined_keywords'}{$keyword} |
|
399
|
148 |
489 |
if $token eq "sub" |
|
400
|
316 |
173 |
unless exists $self->{'defines_sub'} |
|
401
|
168 |
5 |
if exists $self->{'defines_sub'}{$token} |
|
407
|
18 |
664 |
exists $enables_utf8{$module} ? : |
|
417
|
631 |
108 |
unless $self->{'packages'} |
|
424
|
244 |
248 |
unless $self->{$rel} |
|
432
|
656 |
83 |
unless $self->{'perl'} |
|
435
|
11 |
72 |
if ($self->{'perl'}->accepts_module('perl', $perl)) { } |