| line |
true |
false |
branch |
|
28
|
9 |
0 |
if (not $$attr{'override'} and $$attr{$accessor} = $$af{'query'}->param($$attr{'name'}))
|
|
54
|
1 |
32 |
if @_ < 2
|
|
56
|
16 |
16 |
if ($key =~ /^\__(.+?)\__$/) { }
|
|
63
|
16 |
16 |
if (@_ == 3 and ref $value eq 'HASH') { }
|
|
65
|
0 |
22 |
if ($n =~ /^\-/)
|
|
70
|
0 |
22 |
if ($n =~ /[A-Z]/)
|
|
75
|
0 |
16 |
unless $$value{'type'}
|
|
76
|
2 |
14 |
if ($$value{'type'} =~ /[Ff][Oo][Rr][Mm]$/) { }
|
|
77
|
0 |
2 |
if $$value{'alias'}
|
|
82
|
0 |
16 |
wantarray ? :
|
|
89
|
1 |
1 |
if ($hash and ref $hash eq 'HASH')
|
|
99
|
0 |
16 |
unless %attr
|
|
102
|
0 |
16 |
unless $af->can($type)
|
|
114
|
0 |
0 |
!$query->can('param') ? :
|
|
|
0 |
0 |
!isa($query, 'HASH') ? :
|
|
|
2 |
0 |
$type eq 'HASH' ? :
|
|
|
0 |
2 |
$ENV{'MOD_PERL'} && isa($query, 'SCALAR') ? :
|
|
115
|
2 |
0 |
$type ? :
|
|
123
|
0 |
1 |
if $$attr{'enctype'} and $$attr{'enctype'} =~ /[Uu][Pp][Ll][Oo][Aa][Dd]/
|
|
126
|
0 |
1 |
if $af->hidden->exists
|
|
134
|
0 |
1 |
if $af->hidden->exists
|
|
189
|
1 |
14 |
if @_ < 2
|
|
190
|
3 |
11 |
if @_ == 3
|
|
199
|
1 |
1 |
if not $hidden or ref $hidden ne 'HASH'
|
|
204
|
1 |
0 |
if (@_ == 3)
|
|
205
|
0 |
1 |
if ($$h{$key}) { }
|
|
206
|
0 |
0 |
if (ref $$h{$key} eq 'ARRAY') { }
|
|
219
|
2 |
0 |
if @_ == 2
|
|
224
|
2 |
1 |
if @_ < 2
|
|
229
|
2 |
4 |
if (@_ == 2) { }
|
|
230
|
0 |
2 |
if (ref $$h{$key} eq 'ARRAY') { }
|
|
231
|
0 |
0 |
@{$$h{$key};} ? :
|
|
233
|
1 |
1 |
exists $$h{$key} ? :
|
|
236
|
1 |
3 |
%$h ? :
|
|
245
|
3 |
0 |
if $value
|
|
247
|
2 |
0 |
@hidden ? :
|
|
253
|
0 |
4 |
ref $value eq 'ARRAY' ? :
|