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 { do { 'PPI::Document'->new(\$string) } }
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)