| line |
true |
false |
branch |
|
27
|
6 |
25 |
unless $self->_yaml_config($filename) |
|
44
|
31 |
25 |
if @_ == 2 |
|
53
|
1 |
2 |
if ($value) |
|
63
|
1 |
1 |
if ($value) |
|
74
|
3 |
32 |
if (@_ and @_ % 2 == 0) { } |
|
90
|
36 |
75 |
if exists $optional->{$name} |
|
91
|
75 |
36 |
if exists $required->{$name} |
|
93
|
5 |
106 |
if $fields{$name}{'no_validate'} |
|
98
|
26 |
80 |
if ($depends_on) |
|
99
|
3 |
23 |
if (not exists $hash{$depends_on} || $fields{$name}{'depends_lax'}) { } |
|
|
22 |
1 |
elsif (defined $hash{$depends_on}) { } |
|
108
|
10 |
12 |
if $cases->{$depends_on_value} |
|
114
|
25 |
78 |
unless ($success) |
|
128
|
1 |
40 |
if (@_ and @_ % 2 == 0) { } |
|
137
|
38 |
3 |
if (defined $step) { } |
|
138
|
3 |
35 |
unless $self->{'fieldnames'}{$step} |
|
146
|
2 |
39 |
if ($options{'exclude'}) |
|
171
|
24 |
6 |
if ($subhash->{'message'}) |
|
182
|
1 |
5 |
unless $values |
|
183
|
1 |
4 |
if ref $values ne 'ARRAY' |
|
187
|
1 |
1 |
$self->check($field, $value) ? : |
|
210
|
216 |
40 |
if ($definition and $definition->{'type'} eq 'required' or not $definition and exists $self->_required->{$field}) { } |
|
|
18 |
23 |
elsif ($definition && $definition->{'type'} eq 'optional' || !$definition && exists $self->_optional->{$field} and not defined $value && length $value) { } |
|
214
|
20 |
196 |
unless defined $value and length $value |
|
226
|
293 |
245 |
if (exists $dispatch{$key}) { } |
|
|
6 |
239 |
elsif ($key eq 'plugin') { } |
|
227
|
81 |
209 |
unless ($dispatch{$key}->($value, $subhash->{$key}, $self)) |
|
233
|
2 |
4 |
ref $subhash->{$key} ? : |
|
243
|
5 |
3 |
if (not $@ and $module->can('check')) { } |
|
245
|
1 |
4 |
unless $local_bool |
|
252
|
1 |
2 |
$one_not_ok ? : |
|
264
|
1 |
2 |
unless $info |
|
273
|
5 |
26 |
if (ref $file and 'SCALAR' eq ref $file) { } |
|
|
22 |
4 |
elsif (defined $file and -e $file) { } |
|
|
3 |
1 |
elsif (defined $file) { } |
|
277
|
1 |
4 |
unless (eval {
do {
$self->{'config'} = 'YAML::Tiny'->read_string(${$file;});
1
}
}) |
|
286
|
1 |
21 |
unless (eval {
do {
$self->{'config'} = 'YAML::Tiny'->read($file);
1
}
}) |
|
300
|
2 |
23 |
if ($self->_no_steps) { } |
|
317
|
52 |
65 |
if (exists $data->{$field}{'type'} and $data->{$field}{'type'} eq 'required') { } |
|
|
61 |
4 |
elsif (not exists $self->_required->{$field}) { } |
|
321
|
4 |
48 |
if (exists $self->_optional->{$field}) |
|
335
|
2 |
81 |
unless &looks_like_number($value) |
|
341
|
3 |
120 |
unless &looks_like_number($value) |
|
348
|
3 |
25 |
ref $regex_list ? : |
|
352
|
15 |
15 |
unless $value =~ /$re/ |
|
361
|
5 |
3 |
ref $regex_list ? : |
|
365
|
5 |
5 |
if $value =~ /$re/ |
|
374
|
26 |
1 |
if ($check =~ /,/) { } |
|
377
|
7 |
19 |
if (defined $min and length $value < $min) |
|
380
|
1 |
25 |
if (defined $max and length $value > $max) |
|
399
|
2 |
2 |
unless $self->_allow_subs |
|
407
|
31 |
4 |
if @_ == 2 |
|
416
|
16 |
17 |
if ($type eq 'int') { } |
|
|
6 |
11 |
elsif ($type eq 'num') { } |
|
|
10 |
1 |
elsif ($type eq 'positive_int') { } |
|
417
|
2 |
14 |
unless &looks_like_number($value) |
|
418
|
2 |
12 |
unless $value =~ /\A [+-]? \d+ (?:[eE]\d+)? \z/msx |
|
422
|
2 |
4 |
unless &looks_like_number($value) |
|
426
|
2 |
8 |
unless &looks_like_number($value) |