Branch Coverage

blib/lib/Perl/Critic/Policy/Lax/ProhibitStringyEval/ExceptForRequire.pm
Criterion Covered Total %
branch 18 26 69.2


line true false branch
45 1 6 unless $arg->isa("PPI::Token::Quote::Double") or $arg->isa("PPI::Token::Quote::Interpolate")
50 0 6 unless my $doc = eval {
55 0 6 if @children > 2
56 2 4 unless defined $children[0] and $children[0]->isa("PPI::Statement::Include")
62 1 3 if @children == 1
65 0 3 unless $children[1]->isa("PPI::Statement")
69 1 2 if @tail_bits > 2 or not $tail_bits[0]->isa("PPI::Token::Number") or $tail_bits[1] and $tail_bits[1] ne ";"
79 0 7 if $elem ne "eval"
80 0 7 unless is_function_call($elem)
83 0 7 unless $sib
84 0 7 $sib->isa('PPI::Structure::List') ? :
87 0 7 if not $arg or $arg->isa("PPI::Structure::Block")
90 3 4 if $self->_arg_is_ok($arg)