| line |
true |
false |
branch |
|
98
|
1 |
287 |
if @extra + @missing |
|
105
|
5 |
282 |
$opt{'public'} ? : |
|
109
|
1 |
286 |
unless UNIVERSAL::isa($opt{'code'}, "CODE") |
|
111
|
1 |
285 |
if $opt{'public'} and not $opt{'description'} |
|
113
|
0 |
285 |
if ref $opt{'default'} ne "HASH" |
|
115
|
1 |
284 |
unless $opt{'method'} =~ /^[A-Z0-9_]+$/ |
|
118
|
4 |
280 |
unless (UNIVERSAL::isa($opt{'path_info_regex'}, "Regexp")) |
|
120
|
0 |
4 |
defined $opt{'path_info_regex'} ? : |
|
129
|
15 |
269 |
if (my $reg = $opt{'param_regex'}) |
|
132
|
3 |
12 |
if ref $reg ne "HASH" or grep {not defined $reg->{$_};} keys %$reg |
|
138
|
5 |
276 |
if ($opt{'cache_ttl'}) |
|
140
|
1 |
4 |
unless &looks_like_number($opt{'cache_ttl'}) |
|
142
|
0 |
4 |
if $opt{'cache_ttl'} < 0 |
|
143
|
0 |
4 |
if $opt{'cache_ttl'} > $year |
|
259
|
0 |
2 |
unless $name and $spec |
|
261
|
0 |
2 |
if exists $self->{'forms'}{$name} |
|
264
|
2 |
0 |
unless (&blessed($spec)) |
|
268
|
2 |
0 |
unless ($eng->can("new")) |
|
269
|
0 |
2 |
unless eval {
do {
&load($eng);
1
}
} |
|
298
|
1 |
2 |
unless $parent |
|
318
|
0 |
201 |
if $self->is_locked |
|
354
|
91 |
52 |
unless $self->{'lock'} |
|
357
|
6 |
137 |
if ($suffix =~ /%/) |
|
360
|
7 |
136 |
unless my(@split) = $suffix =~ $self->path_info_regex |
|
366
|
5 |
131 |
if exists $self->{'hooks'}{'pre_logic'} |