| line |
true |
false |
branch |
|
51
|
34 |
49 |
unless $funcs{$funcname}
|
|
54
|
7 |
42 |
unless is_function_call($elem)
|
|
76
|
4 |
38 |
if ($funcname =~ /p/)
|
|
82
|
17 |
25 |
$funcname =~ /n/ ? :
|
|
84
|
17 |
25 |
if ($funcname =~ /n/)
|
|
87
|
8 |
9 |
if (not $count_arg or do {
my($str, $any_vars) = _arg_word_or_string($count_arg, $document);
not $any_vars if $str =~ /^[[:alpha:]_]\w*$/
})
|
|
91
|
5 |
9 |
if $str =~ /^[[:alpha:]_]\w*$/
|
|
111
|
31 |
7 |
unless ($any_vars)
|
|
129
|
21 |
21 |
unless ($args_any_vars or exists $arg_keys{$format_key})
|
|
138
|
39 |
3 |
unless ($format_any_vars)
|
|
140
|
13 |
15 |
unless (exists $format_keys{$arg_key})
|
|
142
|
8 |
5 |
@format_args == 1 ? :
|
|
157
|
27 |
25 |
if (@$arg == 1 and $arg->[0]->isa('PPI::Token::Word')) { }
|
|
180
|
85 |
117 |
if ($elem->isa('PPI::Token::Quote')) { }
|
|
|
4 |
113 |
elsif ($elem->isa('PPI::Token::HereDoc')) { }
|
|
|
10 |
103 |
elsif ($elem->isa('PPI::Token::Number')) { }
|
|
|
88 |
15 |
elsif ($elem->isa('PPI::Token::Word')) { }
|
|
182
|
22 |
63 |
if ($elem->isa('PPI::Token::Quote::Double') or $elem->isa('PPI::Token::Quote::Interpolate'))
|
|
192
|
0 |
4 |
if ($elem =~ /`$/) { }
|
|
|
3 |
1 |
elsif (not $elem =~ /'$/) { }
|
|
208
|
8 |
80 |
if ($elem eq '__PACKAGE__') { }
|
|
|
8 |
72 |
elsif ($elem eq '__LINE__') { }
|
|
|
4 |
68 |
elsif ($elem eq '__FILE__') { }
|
|
|
64 |
4 |
elsif ($next = $elem->snext_sibling and $next->isa('PPI::Token::Operator') and $next eq '=>') { }
|
|
217
|
2 |
2 |
unless (defined $filename)
|
|
240
|
107 |
12 |
unless (@elems)
|
|
242
|
0 |
12 |
unless ($op->isa('PPI::Token::Operator') and $op eq '.')
|
|
263
|
3 |
5 |
if (my $packelem = Perl::Critic::Pulp::Utils::elem_package($elem))
|
|
264
|
1 |
2 |
if (my $name = $packelem->namespace)
|
|
292
|
4 |
112 |
if ($e == $elem)
|
|
296
|
2 |
110 |
if ($e->isa('PPI::Token::Comment') and $e->content =~ /$line_directive_re/)
|
|
303
|
2 |
2 |
if (defined $filename) { }
|