Branch Coverage

blib/lib/Perl/Stripper.pm
Criterion Covered Total %
branch 40 54 74.0


line true false branch
24 12 0 if ($self->maintain_linum) { }
38 5 0 if ($self->maintain_linum) { }
46 3 2 if $ct
61 12 381 if ($self->strip_comment and $el->isa('PPI::Token::Comment'))
63 2 10 if ($el->content =~ /^#!/)
65 2 0 if $loc->[0] == 1 and $loc->[1] == 1
67 0 10 if (ref $self->strip_comment eq 'CODE') { }
74 2 389 if ($self->strip_pod and $el->isa('PPI::Token::Pod'))
75 0 2 if (ref $self->strip_pod eq 'CODE') { }
82 148 243 if ($self->strip_log)
84 20 128 if ($el->isa('PPI::Statement'))
87 3 17 if ($c0->content eq '$log')
89 3 0 if ($c1->content eq '->')
92 2 1 if ($c2c ~~ \@ll or $c2c ~~ \@llf)
98 20 128 if ($el->isa('PPI::Statement'))
101 1 19 if (grep {$c0->content eq "log_$_";} @ll)
105 2 146 if ($el->isa('PPI::Statement::Compound'))
108 2 0 if ($c0->content eq 'if')
110 2 0 if ($cond->isa('PPI::Structure::Condition'))
112 2 0 if ($expr->isa('PPI::Statement::Expression'))
114 1 1 if ($c0->content eq '$log') { }
1 0 elsif (grep {$c0->content eq "log_is_$_";} @ll) { }
116 1 0 if ($c1->content eq '->')
119 1 0 if ($c2c ~~ \@isll)
131 5 143 if ($match)
132 0 5 if (ref $self->strip_log eq 'CODE') { }
143 0 2 unless defined $res