Branch Coverage

blib/lib/Pugs/Compiler/RegexPerl5.pm
Criterion Covered Total %
branch 5 16 31.2


line true false branch
19 483 0 unless $rule_source =~ m[/]
20 0 0 unless $rule_source =~ /{/ or $rule_source =~ /}/
21 0 0 unless $rule_source =~ /!/
22 0 0 unless $rule_source =~ /\[/ or $rule_source =~ /\]/
23 0 0 unless $rule_source =~ /^/
29 2 159 ref $param ? :
100 161 0 unless ($compile_only)
104 0 161 if $@