Branch Coverage

blib/lib/Perl/Stripper.pm
Criterion Covered Total %
branch 34 48 70.8


line true false branch
24 11 0 if ($self->maintain_linum) { }
38 3 0 if ($self->maintain_linum) { }
46 2 1 if $ct
61 11 306 if ($self->strip_comment and $el->isa('PPI::Token::Comment'))
63 2 9 if ($el->content =~ /^#!/)
65 2 0 if $loc->[0] == 1 and $loc->[1] == 1
67 0 9 if (ref $self->strip_comment eq 'CODE') { }
74 2 313 if ($self->strip_pod and $el->isa('PPI::Token::Pod'))
75 0 2 if (ref $self->strip_pod eq 'CODE') { }
82 125 190 if ($self->strip_log)
84 15 110 if ($el->isa('PPI::Statement'))
87 3 12 if ($c0->content eq '$log')
89 3 0 if ($c1->content eq '->')
92 2 1 if ($c2c ~~ \@ll or $c2c ~~ \@llf)
98 1 124 if ($el->isa('PPI::Statement::Compound'))
101 1 0 if ($c0->content eq 'if')
103 1 0 if ($cond->isa('PPI::Structure::Condition'))
105 1 0 if ($expr->isa('PPI::Statement::Expression'))
107 1 0 if ($c0->content eq '$log')
109 1 0 if ($c1->content eq '->')
112 1 0 if ($c2c ~~ \@isll)
122 3 122 if ($match)
123 0 3 if (ref $self->strip_log eq 'CODE') { }
134 0 2 unless defined $res