| line |
true |
false |
branch |
|
45
|
9182 |
0 |
unless $ENV{'HTML_FORMFU_DEBUG'}
|
|
51
|
4824 |
0 |
unless DEBUG() or $ENV{'HTML_FORMFU_DEBUG_PROCESS'}
|
|
58
|
2709 |
0 |
unless DEBUG() or &DEBUG_PROCESS() or $ENV{'HTML_FORMFU_DEBUG_CONSTRAINTS'}
|
|
66
|
168 |
0 |
unless DEBUG() or &DEBUG_PROCESS() or $ENV{'HTML_FORMFU_DEBUG_CONSTRAINTS'} or $ENV{'HTML_FORMFU_DEBUG_CONSTRAINTS_WHEN'}
|
|
74
|
659 |
0 |
unless DEBUG() or &DEBUG_PROCESS() or $ENV{'HTML_FORMFU_DEBUG_CONSTRAINTS'} or $ENV{'HTML_FORMFU_DEBUG_CONSTRAINTS_OTHERS'}
|
|
84
|
0 |
0 |
if $sub ne $LAST_SUB
|
|
86
|
0 |
0 |
if (@_ > 1) { }
|
|
|
0 |
0 |
elsif (ref $message) { }
|
|
87
|
0 |
0 |
if $sub ne $LAST_SUB
|
|
93
|
0 |
0 |
if (not defined $value) { }
|
|
|
0 |
0 |
elsif (ref $value) { }
|
|
108
|
0 |
0 |
if $sub ne $LAST_SUB
|
|
116
|
0 |
0 |
if $sub ne $LAST_SUB
|
|
132
|
1771 |
382 |
if $name eq 'forced'
|
|
139
|
303 |
0 |
if $_->can($name) and defined($value = $_->$name)
|
|
151
|
0 |
1430 |
unless defined $args->{$name}
|
|
158
|
125 |
5238 |
ref $args->{$name} eq 'Regexp' ? :
|
|
|
5363 |
164 |
if $_->can($name) and defined($value = $_->$name)
|
|
168
|
0 |
145 |
if ref $attrs ne 'HASH'
|
|
173
|
19 |
126 |
if (exists $attrs->{$key} and defined $attrs->{$key}) { }
|
|
176
|
4 |
15 |
if (&blessed($attrs->{$key}) and $attrs->{$key}->isa('HTML::FormFu::Literal'))
|
|
184
|
3 |
16 |
if (&blessed($value) and $value->isa('HTML::FormFu::Literal'))
|
|
227
|
0 |
17 |
if ref $attrs ne 'HASH'
|
|
232
|
17 |
0 |
if (exists $attrs->{$key} and defined $attrs->{$key})
|
|
235
|
8 |
9 |
if (&blessed($attrs->{$key}) and $attrs->{$key}->isa('HTML::FormFu::Literal'))
|
|
243
|
8 |
9 |
if (&blessed($value) and $value->isa('HTML::FormFu::Literal'))
|
|
298
|
0 |
18 |
if ref $attrs ne 'HASH'
|
|
303
|
17 |
1 |
if (exists $attrs->{$key} and defined $attrs->{$key})
|
|
306
|
13 |
4 |
if (&blessed($attrs->{$key}) and $attrs->{$key}->isa('HTML::FormFu::Literal'))
|
|
314
|
8 |
9 |
if (&blessed($value) and $value->isa('HTML::FormFu::Literal'))
|
|
332
|
1 |
5 |
unless $x =~ s/^\Q$y\E ?// or $x =~ s/ \Q$y\E / /
|
|
340
|
2 |
5 |
unless $x =~ s/^\Q$y\E ?// or $x =~ s/ \Q$y\E / /
|
|
349
|
1 |
2 |
unless $x =~ s/^\Q$y\E ?// or $x =~ s/ \Q$y\E / /
|
|
357
|
0 |
1 |
unless $x =~ s/^\Q$y\E ?// or $x =~ s/ \Q$y\E / /
|
|
368
|
29224 |
3454 |
if (not @_) { }
|
|
|
14 |
3440 |
elsif (@_ > 1) { }
|
|
|
3095 |
345 |
elsif (ref $_[0]) { }
|
|
385
|
0 |
1961 |
unless defined $class
|
|
390
|
997 |
964 |
unless (exists $INC{$class})
|
|
392
|
0 |
997 |
if $@
|
|
402
|
3615 |
52952 |
unless defined $val
|
|
404
|
31844 |
21108 |
if (ref $val eq 'HASH') { }
|
|
|
0 |
21108 |
elsif (ref $val eq 'ARRAY') { }
|
|
|
67 |
21041 |
elsif (ref $val) { }
|
|
425
|
398 |
20643 |
unless length $val
|
|
443
|
0 |
6658 |
if &reftype($attrs) ne 'HASH'
|
|
451
|
952 |
0 |
defined $attrs->{$attribute} ? :
|
|
459
|
725 |
5933 |
if (length $xml)
|
|
469
|
0 |
8314 |
if @_ != 1
|
|
471
|
0 |
8314 |
unless defined $name
|
|
473
|
0 |
8314 |
if ($name =~ /^ \w+ \[ /x) { }
|
|
|
1818 |
6496 |
elsif ($name =~ /\./) { }
|
|
515
|
515 |
143 |
unless defined $righthash and keys %$righthash
|
|
523
|
23 |
166 |
if (exists $lefthash->{$key}) { }
|
|
528
|
1 |
22 |
if (ref $left_value eq 'HASH' and ref $right_value eq 'ARRAY') { }
|
|
|
0 |
22 |
elsif (ref $left_value eq 'ARRAY' and ref $right_value eq 'HASH') { }
|
|
|
0 |
22 |
elsif (ref $left_value eq 'ARRAY' and ref $right_value eq 'ARRAY') { }
|
|
|
20 |
2 |
elsif (ref $left_value eq 'HASH' and ref $right_value eq 'HASH') { }
|