Condition Coverage

blib/lib/Data/RuledValidator.pm
Criterion Covered Total %
condition 84 127 66.1


and 3 conditions

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*#/

or 2 conditions

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 ||= {}

or 3 conditions

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*$/