| line |
true |
false |
branch |
|
35
|
0 |
6 |
unless $env |
|
44
|
0 |
0 |
@execution_modes ? : |
|
|
4 |
0 |
@running_envs ? : |
|
|
0 |
4 |
$env eq '-debug' ? : |
|
|
1 |
4 |
$env eq 'debug' ? : |
|
|
1 |
5 |
$env eq '-testing' ? : |
|
|
0 |
6 |
$env eq 'testing' ? : |
|
53
|
0 |
2 |
if $ENV{'RUN_ENV_current'} |
|
56
|
0 |
2 |
if -e 'File::Spec'->catfile(@os_conf_location, 'development-machine') |
|
58
|
0 |
2 |
if -e 'File::Spec'->catfile(@os_conf_location, 'uat-machine') |
|
60
|
0 |
2 |
if -e 'File::Spec'->catfile(@os_conf_location, 'staging-machine') |
|
68
|
7 |
7 |
if $running_env eq shift() |
|
104
|
1 |
5 |
if ($set_running_env eq 'development') { } |
|
|
1 |
4 |
elsif ($set_running_env eq 'uat') { } |
|
|
1 |
3 |
elsif ($set_running_env eq 'staging') { } |
|
|
3 |
0 |
elsif ($set_running_env eq 'production') { } |
|
143
|
0 |
2 |
if $ENV{'RUN_ENV_debug'} |
|
144
|
0 |
2 |
if any sub {
$_ eq '--debug';
}
, @ARGV |
|
154
|
2 |
4 |
if @_ == 0 |
|
157
|
2 |
2 |
if ($debug_mode) { } |
|
176
|
1 |
3 |
if exists $ENV{'MOD_PERL'} |
|
178
|
1 |
2 |
if exists $ENV{'REQUEST_METHOD'} |
|
184
|
1 |
0 |
if $execution_mode eq shift() |
|
207
|
0 |
2 |
if ($set_execution eq 'cgi') { } |
|
|
0 |
2 |
elsif ($set_execution eq 'mod_perl') { } |
|
|
2 |
0 |
elsif ($set_execution eq 'shell') { } |
|
244
|
0 |
4 |
if $ENV{'RUN_ENV_testing'} |
|
250
|
3 |
1 |
if pop @current_path eq 't' |
|
262
|
0 |
2 |
if @_ == 0 |
|
265
|
2 |
0 |
if ($testing) { } |