| line |
true |
false |
branch |
|
70
|
157 |
624 |
if ($args{'suggests'} or $args{'recommends'}) |
|
73
|
157 |
624 |
if ($args{'suggests'}) |
|
76
|
83 |
698 |
if ($args{'perl_minimum_version'}) |
|
80
|
3115 |
790 |
if (exists $args{'_'}{$type}) |
|
101
|
0 |
2 |
unless %{$self->{'keyword'};} |
|
127
|
0 |
280 |
unless my $optional = $self->{$key} |
|
130
|
280 |
0 |
if (my $requires = $self->{'requires'}) |
|
133
|
0 |
102 |
if (defined $requires->requirements_for_module($module) and $requires->accepts_module($module, $hash->{$module})) |
|
145
|
9 |
1253 |
if ($self->{'optional'}) { } |
|
170
|
142 |
126 |
unless $self->{'perl'} |
|
177
|
1 |
1545 |
unless is_module_name($module) |
|
179
|
17 |
1528 |
unless my $CMR = $self->_object($type) |
|
180
|
6 |
1522 |
unless defined $version |
|
181
|
0 |
1528 |
if ($self->{'verbose'}) |
|
182
|
0 |
0 |
unless (defined $CMR->requirements_for_module($module)) |
|
211
|
0 |
12 |
unless is_module_name($module) |
|
213
|
1 |
11 |
unless my $CMR = $self->_object($type) |
|
214
|
10 |
1 |
defined $CMR->requirements_for_module($module) ? : |
|
219
|
42 |
2254 |
if ($self->{'eval'}) { } |
|
|
7 |
2247 |
elsif ($self->{'force_cond'}) { } |
|
|
87 |
2160 |
elsif ($key and $key eq 'conditional') { } |
|
|
735 |
1425 |
elsif (not $key) { } |
|
224
|
16 |
71 |
if ($self->{'cond'}) { } |
|
|
17 |
54 |
elsif (grep {$_->[2] ne 'BEGIN' if $_->[0] eq '{';} @{[] unless $self->{'stack'};}) { } |
|
226
|
25 |
0 |
if $_->[0] eq "{" |
|
|
0 |
71 |
unless $self->{'stack'} |
|
234
|
20 |
2276 |
unless $self->{$key} |
|
249
|
2 |
737 |
unless $self->_object |
|
256
|
118 |
1520 |
if (@_) |
|
259
|
1431 |
207 |
unless exists $self->{'prototype_re'} |
|
265
|
211 |
1 |
unless exists $self->{'quotelike_re'} |
|
275
|
0 |
1 |
unless $self->{'quotelike'} |
|
281
|
26 |
663 |
if exists $default_expects_block_list{$token} |
|
282
|
663 |
0 |
unless exists $self->{'expects_block_list'} |
|
283
|
0 |
0 |
if exists $self->{'expects_block_list'}{$token} |
|
289
|
0 |
0 |
if exists $default_expects_fh_list{$token} |
|
290
|
0 |
0 |
unless exists $self->{'expects_fh_list'} |
|
291
|
0 |
0 |
if exists $self->{'expects_fh_list'}{$token} |
|
297
|
15 |
3 |
if exists $default_expects_fh_or_block_list{$token} |
|
298
|
3 |
0 |
unless exists $self->{'expects_fh_or_block_list'} |
|
299
|
0 |
0 |
if exists $self->{'expects_fh_or_block_list'}{$token} |
|
305
|
212 |
359 |
if exists $default_expects_expr_block{$token} |
|
306
|
359 |
0 |
unless exists $self->{'expects_expr_block'} |
|
307
|
0 |
0 |
if exists $self->{'expects_expr_block'}{$token} |
|
313
|
2409 |
27964 |
if exists $default_expects_block{$token} |
|
314
|
25109 |
2855 |
unless exists $self->{'expects_block'} |
|
315
|
480 |
2375 |
if exists $self->{'expects_block'}{$token} |
|
321
|
1114 |
1790 |
if exists $default_expects_word{$token} |
|
322
|
1396 |
394 |
unless exists $self->{'expects_word'} |
|
323
|
200 |
194 |
if exists $self->{'expects_word'}{$token} |
|
329
|
2 |
14 |
if exists $default_conditional_keywords{$token} |
|
330
|
14 |
0 |
unless exists $self->{'is_conditional_keyword'} |
|
331
|
0 |
0 |
if exists $self->{'is_conditional_keyword'}{$token} |
|
337
|
3671 |
2359 |
if exists $defined_keywords{$token} |
|
338
|
1653 |
706 |
unless exists $self->{'defined_keywords'} |
|
339
|
166 |
540 |
if exists $self->{'defined_keywords'}{$token} |
|
345
|
163 |
3654 |
if exists $default_op_keywords{$token} |
|
346
|
3626 |
28 |
unless exists $self->{'defined_op_keywords'} |
|
347
|
1 |
27 |
if exists $self->{'defined_op_keywords'}{$token} |
|
368
|
0 |
0 |
if exists $self->{'defined_keywords'}{$keyword} and not $self->{'defined_keywords'}{$keyword} |
|
384
|
153 |
524 |
if $token eq "sub" |
|
385
|
317 |
207 |
unless exists $self->{'defines_sub'} |
|
386
|
198 |
9 |
if exists $self->{'defines_sub'}{$token} |
|
392
|
18 |
754 |
exists $enables_utf8{$module} ? : |
|
402
|
657 |
124 |
unless $self->{'packages'} |
|
409
|
276 |
280 |
unless $self->{$rel} |
|
417
|
698 |
83 |
unless $self->{'perl'} |
|
420
|
11 |
72 |
if ($self->{'perl'}->accepts_module('perl', $perl)) { } |