| 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 |