| line |
true |
false |
branch |
|
61
|
1 |
1 |
$fc_ eq $fcno ? : |
|
|
1 |
2 |
$fc_ eq $fcyes ? : |
|
82
|
1 |
55 |
unless defined $_[0] |
|
93
|
0 |
6 |
unless defined $value |
|
101
|
2 |
1 |
if ($type->can('check')) { } |
|
|
1 |
0 |
elsif ($type->can('validate')) { } |
|
103
|
1 |
1 |
$type->can('get_message') ? : |
|
107
|
0 |
4 |
unless defined $value |
|
115
|
0 |
2 |
unless defined $value |
|
134
|
50 |
28 |
if 'ARRAY' eq ref $stuff |
|
135
|
27 |
1 |
if 'HASH' eq ref $stuff |
|
141
|
15 |
15 |
if 'ARRAY' eq ref $old_stuff |
|
142
|
15 |
0 |
if 'HASH' eq ref $old_stuff |
|
149
|
2 |
4 |
$element eq 'each' ? : |
|
152
|
2 |
4 |
if ($element eq 'key') { } |
|
|
2 |
2 |
elsif ($element eq 'value') { } |
|
173
|
16 |
16 |
unless ($element_valid) |
|
193
|
0 |
39 |
unless $spec_name =~ /$PACKAGE_RE/u |
|
197
|
1 |
38 |
if ($spec_name =~ /\b(::|')\b/u) { } |
|
219
|
23 |
17 |
if (ref $name) |
|
225
|
17 |
23 |
if (defined $name) { } |
|
229
|
1 |
22 |
unless (defined wantarray) |
|
235
|
1 |
38 |
unless 'ARRAY' eq ref $spec |
|
238
|
1 |
37 |
unless scalar @$spec % 2 == 0 |
|
248
|
1 |
57 |
if $encountered_fields{$field} |
|
251
|
1 |
56 |
unless 'ARRAY' eq ref $decls |
|
254
|
1 |
55 |
unless scalar @$decls % 2 == 0 |
|
262
|
17 |
65 |
if (&any(sub {
$op eq $_;
}
, 'from', 'multiple', 'trim')) { } |
|
|
24 |
41 |
elsif ($op =~ /^ (?: (each|key|value)_ )? into $/ux) { } |
|
|
6 |
35 |
elsif ($op eq 'required' or $op eq 'optional') { } |
|
|
31 |
4 |
elsif ($op =~ /^ (?: (each|key|value)_ )? must $/ux) { } |
|
|
3 |
1 |
elsif ($op eq 'with_error') { } |
|
263
|
3 |
14 |
if @decl > 1 |
|
267
|
3 |
11 |
if defined $options{$op} |
|
276
|
1 |
23 |
if ('CODE' eq ref $arg) { } |
|
|
1 |
22 |
elsif (&blessed($arg) and $arg->can('coerce')) { } |
|
|
14 |
8 |
elsif (defined $coercer{$arg}) { } |
|
|
3 |
5 |
elsif ($arg =~ /\?([^!]+)!(.+)/u) { } |
|
|
1 |
4 |
elsif ($arg =~ /$PACKAGE_RE/u) { } |
|
295
|
0 |
20 |
if $element |
|
300
|
3 |
3 |
if $op eq 'optional' |
|
303
|
3 |
3 |
if ($arg) { } |
|
313
|
8 |
2 |
defined $_[0] && $_[0] =~ /./u ? : |
|
323
|
17 |
14 |
if ('CODE' eq ref $arg) { } |
|
|
6 |
8 |
elsif ('Regexp' eq ref $arg) { } |
|
|
3 |
5 |
elsif (&blessed($arg) and $arg->can('check') || $arg->can('validate')) { } |
|
336
|
6 |
20 |
if $element |
|
341
|
1 |
2 |
unless @decl > 1 |
|
359
|
16 |
1 |
if (defined $name) |
|
375
|
0 |
28 |
if (&blessed($input) and $input->can('flatten')) { } |
|
383
|
23 |
5 |
unless (&blessed($spec) and $spec->isa('FormValidator::Tiny')) |
|
391
|
0 |
23 |
unless defined $spec |
|
396
|
0 |
28 |
unless defined $spec |
|
404
|
91 |
130 |
if ('HASH' eq ref $decl) { } |
|
410
|
104 |
4 |
if (defined $_) |
|
|
91 |
0 |
if $trim |
|
412
|
32 |
59 |
if ($multiple) { } |
|
423
|
2 |
128 |
if (not defined $valid) { } |
|
|
97 |
31 |
elsif ($valid) { } |
|
441
|
12 |
16 |
scalar keys %errors ? : |
|
446
|
0 |
10 |
if (@_ == 0) { } |
|
|
5 |
5 |
elsif (@_ == 1) { } |
|
|
2 |
3 |
elsif (@_ == 2) { } |
|
464
|
2 |
18 |
if (1 == length $_) { } |
|
|
13 |
5 |
elsif (/^(.)-(.)$/u and ord $1 < ord $2) { } |
|
|
1 |
4 |
elsif (/^\[([^\]]+)\]$/u) { } |
|
488
|
3 |
8 |
if (@_ == 2 and 'ARRAY' eq ref $_[0] and 'ARRAY' eq ref $_[1]) { } |
|
519
|
2 |
7 |
unless $start =~ /^(?:[0-9]+|\*)$/u |
|
522
|
1 |
6 |
unless $stop =~ /^(?:[0-9]+|\*)$/u |
|
525
|
1 |
3 |
if $start ne '*' and $stop ne '*' and $start > $stop |
|
528
|
1 |
4 |
if ($start eq '*' and $stop eq '*') { } |
|
|
1 |
3 |
elsif ($start eq '*') { } |
|
|
1 |
2 |
elsif ($stop eq '*') { } |
|
545
|
0 |
5 |
unless defined $_[0] |
|
546
|
4 |
1 |
if (length $_[0] >= $start) { } |
|
571
|
1 |
8 |
if ($start eq 'exclusive') |
|
577
|
1 |
8 |
if ($stop eq 'exclusive') |
|
582
|
1 |
8 |
unless $start eq '*' or &looks_like_number($start) |
|
585
|
1 |
7 |
unless $stop eq '*' or &looks_like_number($stop) |
|
588
|
1 |
4 |
if $start ne '*' and $stop ne '*' and $start > $stop |
|
592
|
5 |
1 |
$starti ? : |
|
594
|
5 |
1 |
$stopi ? : |
|
596
|
1 |
5 |
if ($start eq '*' and $stop eq '*') { } |
|
|
1 |
4 |
elsif ($start eq '*') { } |
|
|
2 |
2 |
elsif ($stop eq '*') { } |
|
608
|
2 |
5 |
unless $v |
|
615
|
1 |
1 |
unless @_ > 0 |
|
622
|
3 |
6 |
if $value eq $allowed |
|
634
|
1 |
3 |
unless defined $by |
|
637
|
1 |
2 |
if defined $count and $count <= 1 |
|
640
|
1 |
1 |
if ($count) { } |
|
641
|
1 |
0 |
defined $_[0] ? : |
|
644
|
1 |
0 |
defined $_[0] ? : |
|
650
|
2 |
3 |
if ($only eq 'both') { } |
|
|
1 |
2 |
elsif ($only eq 'left') { } |
|
|
1 |
1 |
elsif ($only eq 'right') { } |
|
652
|
0 |
2 |
unless defined $_ |
|
659
|
0 |
1 |
unless defined $_ |
|
665
|
0 |
1 |
unless defined $_ |