| line |
true |
false |
branch |
|
12
|
51 |
2 |
if ($class) { } |
|
17
|
9 |
42 |
unless (defined eval '${' . $full_class . '::VERSION}') |
|
19
|
0 |
9 |
if $@ |
|
22
|
1 |
1 |
unless $class |
|
34
|
2 |
49 |
if (exists $args{'default'}) |
|
41
|
8 |
42 |
if (exists $args{'values'}) |
|
42
|
7 |
2 |
if (ref $args{'values'} eq 'ARRAY') { } |
|
44
|
9 |
2 |
if (ref $value eq 'ARRAY') { } |
|
46
|
7 |
3 |
if ($class) { } |
|
49
|
1 |
2 |
unless defined $class |
|
50
|
2 |
1 |
unless $class |
|
67
|
49 |
1 |
if ($class) { } |
|
77
|
3 |
57 |
if (ref $name and UNIVERSAL::isa($name, 'Regexp')) { } |
|
88
|
0 |
10 |
if @_ > 1 |
|
94
|
0 |
65 |
unless defined $input |
|
96
|
50 |
15 |
if (exists $$self{'values'}{'byname'}{$input->name}) { } |
|
|
5 |
10 |
elsif (grep {$input->name =~ /$_/;} keys %{$$self{'values'}{'byre'};}) { } |
|
|
0 |
10 |
elsif ($input->type eq 'image') { } |
|
|
0 |
10 |
elsif ($self->default) { } |
|
115
|
55 |
10 |
if (defined $value) |
|
120
|
3 |
52 |
if $input->type eq 'checkbox' and $v eq '' |
|
122
|
0 |
55 |
if $@ |
|
129
|
2 |
5 |
ref $self_class ? : |
|
133
|
7 |
9 |
if (ref $_[0] and eval {
do {
UNIVERSAL::isa($_[0], 'HTML::Form')
}
}) { } |
|
134
|
1 |
6 |
if $form |
|
138
|
5 |
4 |
if (ref $_[0] eq 'ARRAY') { } |
|
147
|
5 |
1 |
if $form |