Branch Coverage

blib/lib/Perl/Strip.pm
Criterion Covered Total %
branch 0 48 0.0


line true false branch
79 0 0 if (eval { do { $doc->child(1)->content =~ /^# .* (build by mktables|machine-generated .*mktables) /u } })
87 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::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'))) { }
0 0 elsif ($prev->isa('PPI::Token::Whitespace')) { }
160 0 0 if ($$self{'optimise_size'})
167 0 0 if $n1->isa('PPI::Token::Whitespace')
169 0 0 if $n3 and $n3->isa('PPI::Token::Whitespace')
173 0 0 if $n1->isa('PPI::Token::Whitespace')
174 0 0 if $n2 and $n2->isa('PPI::Token::Whitespace')
175 0 0 if $n3 and $n3->isa('PPI::Token::Whitespace') || $n3->isa('PPI::Token::Structure') && $n3->content eq ';'
184 0 0 if (my $n = $node->first_token)
185 0 0 if $$n{'content'} eq 'foreach' and $n->isa('PPI::Token::Word')
191 0 0 if ($$node{'content'} =~ /^qw(.)(.*)(.)$/su)
240 0 0 unless my $ppi = 'PPI::Document'->new(\$src)
243 0 0 unless $self->document($ppi)
249 0 0 if (exists $$self{'cache'} and 2048 <= length $src) { }
252 0 0 if (open my $fh, '<:perlio', $file) { }
254 0 0 if (-s $fh)
265 0 0 if (open my $fh, '>:perlio', "$file~")
267 0 0 if ($oldsrc eq $src or syswrite($fh, $src) == length $src)