| line |
true |
false |
branch |
|
44
|
9521 |
0 |
unless $ENV{'HTML_FORMFU_DEBUG'}
|
|
50
|
4993 |
0 |
unless DEBUG() or $ENV{'HTML_FORMFU_DEBUG_PROCESS'}
|
|
57
|
2879 |
0 |
unless DEBUG() or &DEBUG_PROCESS() or $ENV{'HTML_FORMFU_DEBUG_CONSTRAINTS'}
|
|
65
|
168 |
0 |
unless DEBUG() or &DEBUG_PROCESS() or $ENV{'HTML_FORMFU_DEBUG_CONSTRAINTS'} or $ENV{'HTML_FORMFU_DEBUG_CONSTRAINTS_WHEN'}
|
|
73
|
659 |
0 |
unless DEBUG() or &DEBUG_PROCESS() or $ENV{'HTML_FORMFU_DEBUG_CONSTRAINTS'} or $ENV{'HTML_FORMFU_DEBUG_CONSTRAINTS_OTHERS'}
|
|
83
|
0 |
0 |
if $sub ne $LAST_SUB
|
|
85
|
0 |
0 |
if (@_ > 1) { }
|
|
|
0 |
0 |
elsif (ref $message) { }
|
|
86
|
0 |
0 |
if $sub ne $LAST_SUB
|
|
92
|
0 |
0 |
if (not defined $value) { }
|
|
|
0 |
0 |
elsif (ref $value) { }
|
|
107
|
0 |
0 |
if $sub ne $LAST_SUB
|
|
115
|
0 |
0 |
if $sub ne $LAST_SUB
|
|
131
|
1764 |
382 |
if $name eq 'forced'
|
|
138
|
304 |
0 |
if $_->can($name) and defined($value = $_->$name)
|
|
150
|
0 |
1480 |
unless defined $args->{$name}
|
|
157
|
125 |
5480 |
ref $args->{$name} eq 'Regexp' ? :
|
|
|
5605 |
158 |
if $_->can($name) and defined($value = $_->$name)
|
|
167
|
0 |
144 |
if ref $attrs ne 'HASH'
|
|
172
|
19 |
125 |
if (exists $attrs->{$key} and defined $attrs->{$key}) { }
|
|
175
|
4 |
15 |
if (&blessed($attrs->{$key}) and $attrs->{$key}->isa('HTML::FormFu::Literal'))
|
|
183
|
3 |
16 |
if (&blessed($value) and $value->isa('HTML::FormFu::Literal'))
|
|
226
|
0 |
17 |
if ref $attrs ne 'HASH'
|
|
231
|
17 |
0 |
if (exists $attrs->{$key} and defined $attrs->{$key})
|
|
234
|
8 |
9 |
if (&blessed($attrs->{$key}) and $attrs->{$key}->isa('HTML::FormFu::Literal'))
|
|
242
|
8 |
9 |
if (&blessed($value) and $value->isa('HTML::FormFu::Literal'))
|
|
297
|
0 |
18 |
if ref $attrs ne 'HASH'
|
|
302
|
17 |
1 |
if (exists $attrs->{$key} and defined $attrs->{$key})
|
|
305
|
13 |
4 |
if (&blessed($attrs->{$key}) and $attrs->{$key}->isa('HTML::FormFu::Literal'))
|
|
313
|
8 |
9 |
if (&blessed($value) and $value->isa('HTML::FormFu::Literal'))
|
|
331
|
1 |
5 |
unless $x =~ s/^\Q$y\E ?// or $x =~ s/ \Q$y\E / /
|
|
339
|
2 |
5 |
unless $x =~ s/^\Q$y\E ?// or $x =~ s/ \Q$y\E / /
|
|
348
|
1 |
2 |
unless $x =~ s/^\Q$y\E ?// or $x =~ s/ \Q$y\E / /
|
|
356
|
0 |
1 |
unless $x =~ s/^\Q$y\E ?// or $x =~ s/ \Q$y\E / /
|
|
367
|
29380 |
3497 |
if (not @_) { }
|
|
|
14 |
3483 |
elsif (@_ > 1) { }
|
|
|
3125 |
358 |
elsif (ref $_[0]) { }
|
|
384
|
0 |
1961 |
unless defined $class
|
|
389
|
996 |
965 |
unless (exists $INC{$class})
|
|
391
|
0 |
996 |
if $@
|
|
401
|
3603 |
52993 |
unless defined $val
|
|
403
|
31930 |
21063 |
if (ref $val eq 'HASH') { }
|
|
|
0 |
21063 |
elsif (ref $val eq 'ARRAY') { }
|
|
|
67 |
20996 |
elsif (ref $val) { }
|
|
424
|
394 |
20602 |
unless length $val
|
|
442
|
0 |
6627 |
if &reftype($attrs) ne 'HASH'
|
|
450
|
937 |
0 |
defined $attrs->{$attribute} ? :
|
|
458
|
714 |
5913 |
if (length $xml)
|
|
468
|
0 |
8409 |
if @_ != 1
|
|
470
|
0 |
8409 |
unless defined $name
|
|
472
|
0 |
8409 |
if ($name =~ /^ \w+ \[ /x) { }
|
|
|
1778 |
6631 |
elsif ($name =~ /\./) { }
|
|
514
|
509 |
117 |
unless defined $righthash and keys %$righthash
|
|
522
|
21 |
138 |
if (exists $lefthash->{$key}) { }
|
|
527
|
1 |
20 |
if (ref $left_value eq 'HASH' and ref $right_value eq 'ARRAY') { }
|
|
|
0 |
20 |
elsif (ref $left_value eq 'ARRAY' and ref $right_value eq 'HASH') { }
|
|
|
0 |
20 |
elsif (ref $left_value eq 'ARRAY' and ref $right_value eq 'ARRAY') { }
|
|
|
19 |
1 |
elsif (ref $left_value eq 'HASH' and ref $right_value eq 'HASH') { }
|