line |
true |
false |
branch |
38
|
0 |
0 |
if ($wantarray) { } |
46
|
0 |
0 |
if ($wantarray) { } |
53
|
0 |
0 |
if wantarray |
58
|
0 |
6 |
@_ > 0 && ref $_[0] ? : |
60
|
2 |
4 |
if (defined $dir and $params{'unix'}) |
82
|
0 |
43 |
@_ > 0 && ref $_[0] ? : |
88
|
5 |
38 |
if exists $params{'backtrack'} |
89
|
28 |
15 |
unless $params{'no_load'} |
96
|
0 |
2 |
@_ > 0 ? : |
99
|
0 |
2 |
if wantarray |
117
|
3 |
38 |
unless defined(my $env = $self->_get_environment(@_)) |
119
|
27 |
11 |
if ($env =~ /\A \s* {/msx) { } |
153
|
0 |
760 |
unless my($key) = $name =~ /\A DOTCLOUD_ (.*) /msx |
156
|
152 |
608 |
if ($flag_for{$key}) { } |
185
|
1 |
18 |
unless open my $fh, '<:encoding(utf8)', $filename |
195
|
0 |
20 |
if utf8::is_utf8($string) |
202
|
0 |
42 |
@_ > 0 && ref $_[0] ? : |
203
|
2 |
40 |
if exists $params{'environment_string'} |
205
|
2 |
38 |
if exists $params{'environment_file'} |
207
|
14 |
24 |
if exists $$self{'_params'}{'environment_string'} |
209
|
2 |
22 |
if exists $$self{'_params'}{'environment_file'} |
211
|
4 |
18 |
if exists $ENV{'DOTCLOUD_ENVIRONMENT_FILE'} |
213
|
2 |
16 |
if -e $main_file_path |
215
|
2 |
14 |
if exists $params{'fallback_string'} |
217
|
2 |
12 |
if exists $params{'fallback_file'} |
219
|
2 |
10 |
if exists $$self{'_params'}{'fallback_string'} |
221
|
3 |
7 |
if exists $$self{'_params'}{'fallback_file'} |
224
|
3 |
4 |
unless $params{'backtrack'} or $$self{'backtrack'} |
246
|
4 |
0 |
if -e $path |
256
|
0 |
6 |
if -d $main_dotcloud_code_dir |
263
|
6 |
0 |
'File::Spec'->file_name_is_absolute($path) ? : |
274
|
6 |
5 |
if -e $filepath |
282
|
79 |
4 |
ref $_[0] ? : |
287
|
69 |
14 |
unless wantarray |
294
|
10 |
27 |
if wantarray |
306
|
0 |
39 |
if @_ |
307
|
1 |
38 |
unless exists $$self{'_envfor'}{$application} |
314
|
0 |
0 |
unless exists $$self{'_envfor'}{$application} |
316
|
0 |
0 |
unless exists $$services{$service} |
324
|
0 |
0 |
ref $_[0] ? : |
|
0 |
0 |
@_ == 0 ? : |
|
5 |
0 |
@_ > 1 ? : |
330
|
0 |
3 |
exists $params{'application'} ? : |
|
2 |
3 |
$service =~ s/\A (.*) \.//msx ? : |
337
|
4 |
1 |
if exists $$services{$service} |
341
|
1 |
4 |
if @found_services == 0 |
343
|
0 |
4 |
if @found_services > 1 |
353
|
0 |
0 |
ref $_[0] ? : |
|
0 |
0 |
@_ == 0 ? : |
|
5 |
0 |
@_ > 1 ? : |
357
|
0 |
5 |
exists $params{'application'} ? : |
|
0 |
5 |
defined $application ? : |
365
|
2 |
3 |
defined $service ? : |
367
|
0 |
8 |
unless exists $$services{$service} |
368
|
4 |
4 |
unless exists $$services{$service}{$subservice} |
373
|
1 |
4 |
if @founds == 0 |
375
|
0 |
4 |
if @founds > 1 |
383
|
6 |
2 |
unless defined $list |
385
|
2 |
0 |
if wantarray |
393
|
0 |
3 |
ref $_[0] ? : |
|
0 |
3 |
@_ == 0 ? : |
|
2 |
3 |
@_ > 1 ? : |
403
|
0 |
3 |
ref $_[0] ? : |
|
0 |
3 |
@_ == 0 ? : |
|
2 |
3 |
@_ > 1 ? : |
407
|
0 |
4 |
if @real_subs == 0 |
408
|
4 |
0 |
if @real_subs > 1 |
410
|
0 |
4 |
if @real_subs > 1 |