| line |
true |
false |
branch |
|
112
|
6 |
19 |
if ('handlers' eq $arg) |
|
113
|
2 |
4 |
if (not ref $value or 'HASH' ne ref $value) |
|
122
|
3 |
16 |
if ('use' eq $arg) |
|
123
|
2 |
1 |
unless 'ARRAY' eq ref $value |
|
128
|
5 |
11 |
if ('profiles' eq $arg) |
|
129
|
4 |
1 |
if (-f $value) { } |
|
143
|
4 |
6 |
if ($config) |
|
144
|
1 |
3 |
if (not $use_profiles) { } |
|
151
|
3 |
2 |
unless exists $class_for{$profile} |
|
157
|
1 |
4 |
unless my $handler = $$config{'profiles'}{$profile} |
|
179
|
1 |
30 |
unless _module_exists($module) |
|
182
|
1 |
15 |
if (@not_installed_modules) |
|
257
|
7 |
4 |
if (my(%handlers) = @_) |
|
264
|
2 |
2 |
if (my(%handlers) = %{$$self{'class_cgi_handlers'};}) |
|
289
|
1 |
3 |
unless (-f $profiles) |
|
300
|
2 |
1 |
if (@use) |
|
303
|
1 |
1 |
if (exists $handler_for{$profile}) { } |
|
311
|
4 |
1 |
unless $used{$profile} |
|
342
|
25 |
42 |
%$instance_handlers ? : |
|
343
|
46 |
21 |
if (2 != @_ or 2 == @_ and not exists $$handler_for{$_[1]}) |
|
352
|
2 |
19 |
if $@ |
|
355
|
5 |
14 |
if (my $error = $@) |
|
408
|
1 |
1 |
unless @_ |
|
469
|
3 |
9 |
unless %$errors |
|
470
|
5 |
4 |
wantarray ? : |
|
524
|
0 |
2 |
unless $self->is_required($param) |
|
572
|
9 |
1 |
unless @_ |
|
627
|
30 |
10 |
if -f catfile($_, @parts) |