| line |
true |
false |
branch |
|
63
|
105 |
0 |
unless defined $arg{'perl_version_introduced'}
|
|
100
|
0 |
115 |
unless defined($content = $self->content)
|
|
144
|
2 |
108 |
unless $tokenizer->interpolates
|
|
147
|
8 |
100 |
if (my $len = $tokenizer->find_regexp($brkt_interp_re))
|
|
152
|
17 |
83 |
unless defined $tokenizer->find_regexp($interp_re)
|
|
156
|
0 |
83 |
unless my $doc = $tokenizer->ppi_document
|
|
160
|
0 |
83 |
unless my $stmt = $doc->find_first("PPI::Statement")
|
|
168
|
0 |
83 |
unless my $next = $stmt->schild(0)
|
|
171
|
73 |
10 |
if ($next->isa('PPI::Token::Symbol')) { }
|
|
|
8 |
2 |
elsif ($next->isa('PPI::Token::Cast')) { }
|
|
|
2 |
0 |
elsif ($next->isa('PPI::Token::ArrayIndex')) { }
|
|
181
|
0 |
8 |
unless $next = $next->next_sibling
|
|
182
|
6 |
2 |
if ($next->isa('PPI::Token::Symbol')) { }
|
|
|
2 |
0 |
elsif ($next->isa('PPI::Structure::Block')) { }
|
|
186
|
0 |
6 |
unless defined($allow_subscript = $allow_subscript_based_on_cast_symbol{$accum[-1]->content})
|
|
196
|
2 |
0 |
if (@kids == 1 and $kids[0]->isa("PPI::Statement"))
|
|
198
|
2 |
0 |
if (@kids == 1 and $kids[0]->isa("PPI::Structure::Constructor") and $kids[0]->start eq "[")
|
|
225
|
43 |
63 |
unless $allow_subscript and $next = $next->snext_sibling
|
|
229
|
18 |
45 |
if ($next->isa("PPI::Token::Operator"))
|
|
230
|
14 |
4 |
unless $next->content eq "->"
|
|
232
|
0 |
4 |
unless $next = $next->next_sibling
|
|
235
|
4 |
0 |
if (my $deref = $tokenizer->__recognize_postderef(__PACKAGE__, $next))
|
|
243
|
20 |
25 |
unless $next->isa("PPI::Structure::Subscript")
|
|
246
|
0 |
25 |
unless $next->finish
|
|
254
|
2 |
23 |
unless not $in_regexp or $class->_subscript($next)
|
|
266
|
118 |
4 |
ref $_ ? :
|
|
293
|
0 |
21 |
unless my $left = $struct->start
|
|
295
|
0 |
21 |
unless my $handler = $allowed{$lc}
|
|
298
|
0 |
21 |
unless (my(@kids) = $struct->schildren) == 1
|
|
299
|
0 |
21 |
unless $kids[0]->isa("PPI::Statement")
|
|
302
|
0 |
21 |
unless @kids = $kids[0]->schildren
|
|
319
|
14 |
3 |
if ($kids[0]->isa("PPI::Token::Word"))
|
|
320
|
10 |
4 |
if @kids == 1
|
|
321
|
4 |
0 |
if $kids[1]->isa("PPI::Token::Operator") and $kids[1]->content eq "=>"
|
|
327
|
1 |
2 |
if (@kids and $kids[0]->isa("PPI::Token::Symbol"))
|
|
329
|
0 |
1 |
if @kids == 1
|
|
333
|
1 |
0 |
if @kids == 2 and $kids[1]->isa("PPI::Structure::Subscript")
|
|
350
|
4 |
0 |
if $kids[0]->isa("PPI::Token::Number")
|
|
351
|
0 |
0 |
if $kids[0]->isa("PPI::Token::Symbol")
|
|
367
|
1329 |
105 |
unless exists $sigil_alternate{$character}
|
|
369
|
86 |
19 |
if (my($accept, $want_class) = $class->_interpolation($tokenizer, $character, 1))
|
|
375
|
0 |
19 |
unless my $alternate = $sigil_alternate{$character}
|
|
376
|
0 |
19 |
$tokenizer->cookie(']') ? :
|
|
384
|
13 |
5 |
unless exists $sigil_alternate{$character}
|
|
386
|
5 |
0 |
if (my($accept, $want_class) = $class->_interpolation($tokenizer, $character, 0))
|