| line |
true |
false |
branch |
|
68
|
31 |
116 |
unless defined $arg{'perl_version_introduced'}
|
|
74
|
1 |
146 |
if ($arg{'tokenizer'}->cookie("])"))
|
|
75
|
0 |
1 |
unless my $ver = $self->VERSION_WHEN_IN_REGEX_SET
|
|
78
|
1 |
0 |
if $self->{'perl_version_introduced'} < $ver
|
|
83
|
9 |
138 |
if $arg{'tokenizer'}->__recognize_postderef($self) and $self->{'perl_version_introduced'} < "5.019005"
|
|
90
|
271 |
0 |
if (exists $self->{'content'}) { }
|
|
|
0 |
0 |
elsif (exists $self->{'ppi'}) { }
|
|
127
|
5 |
145 |
if (exists $self->{'ppi'}) { }
|
|
|
145 |
0 |
elsif (exists $self->{'content'}) { }
|
|
132
|
2 |
143 |
if ($location)
|
|
134
|
2 |
0 |
if (defined($fn = $location->[4])) { }
|
|
147
|
2 |
143 |
if ($location)
|
|
156
|
2 |
0 |
if $elem = $self->{'ppi'}->child(0) and $elem->isa("PPI::Token::Comment") and $elem->content =~ / \A \#line\b /msx
|
|
165
|
1 |
1 |
if $wid and $elem = $self->{'ppi'}->child(0) and $elem->isa("PPI::Token::Whitespace") and $wid == length $elem->content
|
|
205
|
0 |
14 |
unless $character eq "{"
|
|
207
|
0 |
14 |
unless my $offset = $tokenizer->find_matching_delimiter
|