| blib/lib/HTML/Template/Associate/FormField.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 17 | 34 | 50.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 28 | 0 | 0 | 9 | not $$attr{'override'} and $$attr{$accessor} = $$af{'query'}->param($$attr{'name'}) |
| 63 | 16 | 0 | 16 | @_ == 3 and ref $value eq 'HASH' |
| 89 | 1 | 0 | 1 | $hash and ref $hash eq 'HASH' |
| 114 | 2 | 0 | 0 | $ENV{'MOD_PERL'} && isa($query, 'SCALAR') |
| 123 | 1 | 0 | 0 | $$attr{'enctype'} and $$attr{'enctype'} =~ /[Uu][Pp][Ll][Oo][Aa][Dd]/ |
| line | l | !l | condition |
|---|---|---|---|
| 100 | 16 | 0 | lc $attr{'type'} || (return q[ Can't find field type. ]) |
| 107 | 2 | 0 | shift() || {} |
| 118 | 2 | 0 | shift() || {} |
| 242 | 2 | 0 | shift() || (return '') |
| 254 | 4 | 0 | &CGI::escapeHTML($val) || (next) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 18 | 1 | 1 | 0 | $_[0]{'hidden'} ||= do { my $hidden; $_[0]{'hidden'} = 'HTML::Template::Associate::FormField::Hidden'->new($hidden) } |
| 79 | 0 | 14 | 0 | $$value{'alias'} || $name |
| 199 | 1 | 0 | 1 | not $hidden or ref $hidden ne 'HASH' |