| line |
true |
false |
branch |
|
79
|
0 |
0 |
if (eval {
do {
$doc->child(1)->content =~ /^# .* (build by mktables|machine-generated .*mktables) /u
}
}) |
|
88
|
0 |
0 |
if $self->{'optimise_size'} |
|
115
|
0 |
0 |
if ($last->isa('PPI::Token::Whitespace')) { } |
|
|
0 |
0 |
elsif ($last->isa('PPI::Statement::End')) { } |
|
|
0 |
0 |
elsif ($last->isa('PPI::Token::Pod')) { } |
|
134
|
0 |
0 |
if (not $prev && $next) { } |
|
137
|
0 |
0 |
if ($next->isa('PPI::Token::Whitespace')) { } |
|
|
0 |
0 |
elsif ($next->isa('PPI::Token::Operator') and $next->{'content'} =~ /^(?:,|=|!|!=|==|=>)$/u or $prev->isa('PPI::Token::Operator') and $prev->{'content'} =~ /^(?:,|=|\.|!|!=|==|=>)$/u or $prev->isa('PPI::Token::Structure') or $self->{'optimise_size'} and ($prev->isa('PPI::Token::Word') and 'PPI::Token::Symbol' eq ref $next || $next->isa('PPI::Structure::Block') || $next->isa('PPI::Structure::List') || $next->isa('PPI::Structure::Condition'))) { } |
|
152
|
0 |
0 |
if ($prev->isa('PPI::Token::Operator') and $prev->{'content'} eq '=' and $next->isa('PPI::Token::Operator') and $next->{'content'} =~ /[+\-]/u) { } |
|
166
|
0 |
0 |
if ($self->{'optimise_size'}) |
|
173
|
0 |
0 |
if $n1->isa("PPI::Token::Whitespace") |
|
175
|
0 |
0 |
if $n3 and $n3->isa("PPI::Token::Whitespace") |
|
179
|
0 |
0 |
if $n1->isa("PPI::Token::Whitespace") |
|
180
|
0 |
0 |
if $n2 and $n2->isa("PPI::Token::Whitespace") |
|
181
|
0 |
0 |
if $n3 and $n3->isa('PPI::Token::Whitespace') || $n3->isa('PPI::Token::Structure') && $n3->content eq ';' |
|
190
|
0 |
0 |
if (my $n = $node->first_token) |
|
191
|
0 |
0 |
if $n->{'content'} eq "foreach" and $n->isa("PPI::Token::Word") |
|
197
|
0 |
0 |
if ($node->{'content'} =~ /^qw(.)(.*)(.)$/su) |
|
246
|
0 |
0 |
unless my $ppi = "PPI::Document"->new(\$src) |
|
249
|
0 |
0 |
unless $self->document($ppi) |
|
255
|
0 |
0 |
if (exists $self->{'cache'} and 2048 <= length $src) { } |
|
258
|
0 |
0 |
if (open my $fh, '<:perlio', $file) { } |
|
260
|
0 |
0 |
if (-s $fh) |
|
271
|
0 |
0 |
if (open my $fh, ">:perlio", "$file~") |
|
273
|
0 |
0 |
if ($oldsrc eq $src or syswrite($fh, $src) == length $src) |