| line |
true |
false |
branch |
|
68
|
31 |
115 |
unless defined $arg{'perl_version_introduced'} |
|
74
|
1 |
145 |
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 |
137 |
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 |
144 |
if (exists $self->{'ppi'}) { } |
|
|
144 |
0 |
elsif (exists $self->{'content'}) { } |
|
132
|
2 |
142 |
if ($location) |
|
134
|
2 |
0 |
if (defined($fn = $location->[4])) { } |
|
147
|
2 |
142 |
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 |