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 '' |