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