Branch Coverage

blib/lib/Data/RuledValidator/Util.pm
Criterion Covered Total %
branch 15 20 75.0


line true false branch
20 207 15 &$sub($self, $v) ? :
207 15 if ($_ok = &$sub($self, $v) ? 1 : 0) { }
36 34 22 &$sub($self, $v) ? :
34 22 if ($_ok = &$sub($self, $v) ? 1 : 0) { }
47 0 18 if $_[0] eq 'Data::RuledValidator::Util'
53 0 18 if $arg eq ','
55 0 54 if ($arg =~ s/^\s*('[^']*(?:\\'[^']*)*')\s*,//) { }
7 47 elsif ($arg =~ s/^\s*("[^"]*(?:\\"[^"]*)*")\s*,//) { }
47 0 elsif ($arg =~ s/^([^,]+),//) { }
66 47 0 unless $_ eq ''