Branch Coverage

blib/lib/App/Presto/ArgProcessor.pm
Criterion Covered Total %
branch 20 32 62.5


line true false branch
54 0 39 if ($arg =~ /^#/) { }
8 31 elsif ($arg =~ /^(\$$App::Presto::ArgProcessor::RE{'balanced'}{-'keep'})$/) { }
60 2 2 ref $result eq 'ARRAY' ? :
71 6 6 if ($param =~ /^(BODY|HEADER)\b(.*)/) { }
6 0 elsif ($param =~ m[^STASH($App::Presto::ArgProcessor::RE{'balanced'}{join $;, -'parens', '[]'})(/.*)?]) { }
0 0 elsif ($param =~ /^FILE($App::Presto::ArgProcessor::RE{'balanced'}{join $;, -'parens', '[]'})($App::Presto::ArgProcessor::RE{'balanced'}{join $;, -'parens', '[]'})?/) { }
0 0 elsif ($param =~ /^PROMPT($App::Presto::ArgProcessor::RE{'balanced'}{join $;, -'parens', '[]'})($App::Presto::ArgProcessor::RE{'balanced'}{join $;, -'parens', '[]'})?/) { }
76 6 0 if ($dpath)
81 0 0 $2 ? :
85 0 0 $default ? :
87 11 1 defined $replacement ? :
95 1 5 if ($section eq 'HEADER' and $sub_section =~ /($App::Presto::ArgProcessor::RE{'balanced'}{join $;, -'parens', '[]'})/) { }
4 1 elsif ($section eq 'BODY') { }
98 1 3 if (not $sub_section) { }
3 0 elsif ($sub_section =~ m[^/]) { }
113 1 8 @matches > 1 ? :