Branch Coverage

blib/lib/Perl/Critic/Policy/InputOutput/RequireBracedFileHandleWithPrint.pm
Criterion Covered Total %
branch 28 30 93.3


line true false branch
34 423 121 unless $elem =~ /$PRINT_RX/
35 2 119 unless is_function_call($elem)
40 2 117 unless $sib[0]
43 34 83 if ($sib[0]->isa("PPI::Structure::List"))
45 8 26 unless $expr
47 0 26 unless $sib[0]
51 11 98 unless $sib[1]
53 7 91 unless $sib[2]
56 43 48 unless $sib[0]->isa("PPI::Token::Symbol") and $sib[0] =~ /\A \$/msx or $sib[0]->isa("PPI::Token::Word")
60 4 44 if is_perl_builtin($sib[0])
61 2 42 if exists $POSTFIX_WORDS{$sib[0]}
64 12 30 unless $sib[1]->isa("PPI::Token::Whitespace")
67 8 22 if $sib[2]->isa("PPI::Token::Operator")
70 2 20 if exists $POSTFIX_WORDS{$sib[2]}
72 0 20 if $sib[0]->isa("PPI::Structure::Block")