| line |
true |
false |
branch |
|
22
|
4 |
0 |
if ($has_ah) |
|
23
|
0 |
0 |
if $_[0]->can($name) eq $ref |
|
|
0 |
0 |
if ($name ne 'ANON') |
|
|
0 |
0 |
if ($CGI::Application::VERSION >= 4 and $phase eq 'CHECK') |
|
|
0 |
0 |
if (uc $_ eq 'RUNMODE') |
|
|
0 |
0 |
if (uc $_ eq 'STARTRUNMODE') |
|
|
0 |
0 |
if (uc $_ eq 'ERRORRUNMODE') |
|
79
|
0 |
4 |
if $@ |
|
84
|
0 |
4 |
unless ($has_ah) |
|
85
|
0 |
0 |
unless eval qq[sub MODIFY_CODE_ATTRIBUTES{\n\tmy (\$pkg, \$ref, \@attr) = \@_;\n\t\n\tmy \@unknown;\n\tforeach (\@attr){\n\t\tmy \$u = uc \$_;\n\t\t\$CGI::Application::Plugin::AutoRunmode::RUNMODES{"\$ref"} = 1, next\n\t\t\tif \$u eq 'RUNMODE';\n\t\tif (\$u eq 'STARTRUNMODE'){\n\t\t\tinstall_start_mode(\$pkg, \$ref);\n\t\t\tnext;\n\t\t}\n\t\tif (\$u eq 'ERRORRUNMODE'){\n\t\t\tinstall_error_mode(\$pkg, \$ref);\n\t\t\tnext;\n\t\t}\n\t\tpush \@unknown, \$_;\n\t}\n\treturn \@unknown;\n}\n1;\n] |
|
121
|
4 |
0 |
if (@_ < 2 and $CGI::Application::VERSION >= 4) |
|
123
|
4 |
0 |
if (UNIVERSAL::isa($caller, 'CGI::Application')) |
|
153
|
0 |
0 |
if (length $prerun_mode) |
|
156
|
0 |
0 |
unless defined $rm |
|
158
|
0 |
0 |
unless (exists $rmodes{$rm}) |
|
160
|
0 |
0 |
if ($rm =~ /^(\w+)$/) |
|
163
|
0 |
0 |
if is_attribute_auto_runmode($self, $rm) |
|
168
|
0 |
0 |
if $sub |
|
181
|
0 |
0 |
if defined *{"${pkg}::start_mode";} |
|
193
|
0 |
0 |
if @_ > 1 |
|
194
|
0 |
0 |
if $memory |
|
207
|
0 |
0 |
if defined *{"${pkg}::error_mode";} |
|
219
|
0 |
0 |
if @_ > 1 |
|
220
|
0 |
0 |
if $memory |
|
238
|
0 |
0 |
if (defined $val and defined *ENTRY{'CODE'}) |
|
239
|
0 |
0 |
unless *ENTRY{'CODE'} eq $ref |
|
252
|
0 |
0 |
unless $sub |
|
253
|
0 |
0 |
if $RUNMODES{"$sub"} |
|
269
|
0 |
0 |
unless $delegate |
|
270
|
0 |
0 |
if exists $__illegal_names{$rm} |
|
273
|
0 |
0 |
ref $delegate eq 'ARRAY' ? : |
|
278
|
0 |
0 |
unless $sub |