| blib/lib/Data/RuledValidator.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 84 | 127 | 66.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 76 | 15 | 0 | 3 | @{$option{'plugin'};} && @{$option{'filter'};} |
| 80 | 18 | 0 | 0 | $@ and my $er = $option{'import_error'} |
| 98 | 5 | 0 | 1 | @{$option{'plugin'};} || @{$option{'filter'};} and %import |
| 153 | 22 | 0 | 0 | $option{'rule_path'} and not $option{'rule_path'} =~ m[/$] |
| 207 | 111 | 12 | 4 | $alias and $alias eq $required_name |
| 233 | 99 | 12 | 0 | $flg & NEED_ALIAS() and not $alias |
| 275 | 6 | 21 | 3 | defined $required and %$required |
| 325 | 257 | 3 | 23 | not $r and @value |
| 260 | 1 | 22 | not $r and @value and not defined $$failure{$alias . '_' . $op} | |
| 505 | 0 | 0 | 9 | ref $def eq 'ARRAY' and $$def[1] eq 'GLOBAL' |
| 0 | 0 | 9 | ref $def eq 'ARRAY' and $$def[1] eq 'GLOBAL' and $$def[2] eq 'is' | |
| 0 | 0 | 9 | ref $def eq 'ARRAY' and $$def[1] eq 'GLOBAL' and $$def[2] eq 'is' and $$def[3] eq 'n/a' | |
| 564 | 74 | 1 | 124 | $line and not $line =~ /^\s*#/ |
| line | l | !l | condition |
|---|---|---|---|
| 37 | 49 | 4 | $RULES{$rule}{'coded_rule'} ||= {} |
| 57 | 0 | 0 | $RULES{$rule}{'_regex_group'} ||= [] |
| 150 | 19 | 3 | $option{'rule'} ||= '' |
| 151 | 1 | 21 | $option{'filter_replace'} ||= 0 |
| 152 | 0 | 22 | $option{'rule_path'} ||= '' |
| 196 | 0 | 410 | $$self{'required_alias_name'} || 'required' |
| 232 | 12 | 99 | $flg ||= 0 |
| 236 | 7 | 104 | $def{$alias or $key} ||= [] |
| 286 | 2 | 28 | $$filter{'*'} || [] |
| 322 | 257 | 26 | &$sub($self, \@value, $alias, $given_data, $validate_data) || 0 |
| 324 | 45 | 238 | $$result{$alias . '_valid'} ||= 1 |
| 412 | 59 | 0 | $$self{'result'} ||= {} |
| 418 | 56 | 0 | $$self{'failure'} || {} |
| 492 | 23 | 2 | $defs || {} |
| 581 | 0 | 26 | $$rules{$id_name} ||= [] |
| 590 | 4 | 0 | $global_rule ||= [] |
| 598 | 22 | 0 | $rule ||= {} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 30 | 49 | 2 | 0 | $RULES{$rule}{'time'} ||= $t |
| 50 | 26 | 0 | 0 | $rule ||= $self->rule |
| 51 | 18 | 0 | 7 | $RULES{$rule}{'id_method'} || $$self{'id_method'} |
| 66 | 1 | 0 | 5 | $option{'plugin'} ||= $option{'import'} |
| 76 | 15 | 0 | 3 | not @{$option{'plugin'};} && @{$option{'filter'};} or exists $import{$plugin} |
| 98 | 1 | 0 | 5 | @{$option{'plugin'};} || @{$option{'filter'};} |
| 236 | 12 | 99 | 0 | $alias or $key |
| 318 | 22 | 299 | 0 | $alias ||= $key |
| 321 | 22 | 261 | 38 | $flg & ALLOW_NO_VALUE() or any sub { defined $_; } , @value |
| 343 | 59 | 22 | 490 | @{[] unless $all_filter;} or my $key_filter = $$filter{$key} |
| 478 | 0 | 25 | 0 | $self->id_obj || $self->obj |
| 18 | 7 | 0 | $self->id_method($rule) || $self->method | |
| 482 | 25 | 0 | 0 | $id_key || () |
| 525 | 10 | 164 | 0 | $alias || $key |
| 528 | 13 | 0 | 161 | $na{$alias}{$op} or $has{$alias}{$op}++ |
| 566 | 0 | 0 | 124 | $line =~ s/^;+path;+/;/ or $line =~ s/path\{/{/ |
| 0 | 0 | 124 | $line =~ s/^;+r;+/;/ or $line =~ s/r\{/{/ | |
| 573 | 0 | 26 | 93 | $line =~ /^\s*\{\s*([^\s]+)\s*\}\s*$/ or $line =~ /^\s*;+\s*([^\s]+)\s*$/ |