| line |
true |
false |
branch |
|
26
|
0 |
0 |
unless $ENV{'INLINE_FILES_TRACE'} |
|
27
|
0 |
0 |
unless $ENV{'INLINE_FILES_ARGS'} |
|
31
|
0 |
0 |
unless TRACING() or ARGS() |
|
32
|
0 |
0 |
if ARGS() |
|
33
|
0 |
0 |
if TRACING() or ARGS() |
|
34
|
0 |
0 |
unless @_ |
|
38
|
0 |
0 |
if ARGS() |
|
72
|
8 |
0 |
if $file =~ m[^(.*)/(.*)$] |
|
74
|
0 |
8 |
if $afs{$file} |
|
76
|
0 |
8 |
unless open FILE, $file |
|
106
|
10 |
24 |
if ($file and $file =~ /^(?:\|-|-\||>|<|>>|>:.*)$/) |
|
113
|
34 |
0 |
if (defined $glob) { } |
|
114
|
29 |
5 |
unless ref $glob or $glob =~ /::/ |
|
124
|
24 |
10 |
unless ($mode) |
|
130
|
1 |
23 |
if (not $mode and $file =~ s/\s*\|\s*$//) |
|
134
|
7 |
27 |
unless ($file) |
|
136
|
7 |
0 |
$scalar ? : |
|
141
|
0 |
32 |
if $file and exists $mfs{$file} |
|
144
|
2 |
32 |
if (not $file and defined $Inline::Files::{'get_filename'}) |
|
146
|
2 |
0 |
if ($marker =~ /^[A-Z](?:_*[A-Z0-9]+)*$/) |
|
147
|
2 |
0 |
if ($file = Inline::Files::get_filename((caller)[0])) |
|
163
|
0 |
34 |
unless $file |
|
165
|
22 |
12 |
unless (exists $vfs{$file}) |
|
169
|
12 |
0 |
$file =~ /^(.*)[(](NEW)?\d+[)]$/ ? : |
|
178
|
5 |
7 |
if exists $write{$mode} and not exists $preserve{$mode} |
|
192
|
14 |
0 |
unless @files |
|
194
|
10 |
4 |
unless $afs{$file}{'changed'} |
|
199
|
9 |
0 |
if (length $entry->{'data'}) |
|
204
|
0 |
4 |
unless open FILE, ">$file" and print FILE map({my $entry = $vfs{$_};
if (length $entry->{'data'}) {
chomp $entry->{'data'};
$entry->{'data'} .= "\n";
} ;
"$entry->{'marker'}$entry->{'data'}";} @{$afs{$file}{'vfiles'};}) and close FILE |
|
233
|
23 |
5 |
unless ref $glob or $glob =~ /::/ |
|
235
|
22 |
6 |
unless $impl |
|
243
|
11 |
0 |
unless ref $glob or $glob =~ /::/ |
|
245
|
0 |
11 |
unless $impl |
|
253
|
0 |
0 |
unless ref $glob or $glob =~ /::/ |
|
255
|
0 |
0 |
unless $impl |
|
263
|
0 |
0 |
unless ref $glob or $glob =~ /::/ |
|
265
|
0 |
0 |
unless $impl |
|
274
|
0 |
0 |
unless ref $glob or $glob =~ /::/ |
|
276
|
0 |
0 |
unless $impl |
|
283
|
0 |
12 |
unless my $vfs_entry = $vfs{$vfile} |
|
285
|
0 |
12 |
exists $append{$mode} ? : |
|
299
|
0 |
6 |
unless exists $write{$impl->{'mode'}} |
|
310
|
0 |
0 |
unless exists $write{$impl->{'mode'}} |
|
333
|
1 |
4 |
unless $INC{'Inline/Files.pm'} and $impl->{'symbol'} |
|
341
|
0 |
0 |
unless exists $read{$impl->{'mode'}} |
|
342
|
0 |
0 |
unless defined $offset |
|
344
|
0 |
0 |
if $remainder < $length |
|
347
|
0 |
0 |
if ($length >= 0) { } |
|
|
0 |
0 |
elsif ($impl = _magic_handle($impl)) { } |
|
361
|
0 |
17 |
unless exists $read{$impl->{'mode'}} |
|
362
|
16 |
0 |
length $/ ? : |
|
|
1 |
16 |
!defined($/) ? : |
|
368
|
17 |
5 |
if ($impl->{'pos'} < length $impl->{'vfile'}{'data'} and $impl->{'vfile'}{'data'} =~ /\A(.{$impl->{'pos'}})($match)/s) { } |
|
374
|
1 |
4 |
unless $impl = _magic_handle($impl) |
|
375
|
1 |
3 |
unless $impl = $impl->MAGIC |
|
378
|
15 |
2 |
unless $list_context |
|
380
|
15 |
1 |
@lines ? : |
|
|
1 |
16 |
$list_context ? : |
|
392
|
0 |
0 |
unless exists $read{$impl->{'mode'}} |
|
395
|
0 |
0 |
if length $char |
|
396
|
0 |
0 |
unless $impl = _magic_handle($impl) |
|
413
|
2 |
0 |
$whence == 2 ? : |
|
|
6 |
2 |
$whence == 1 ? : |
|
|
3 |
8 |
$whence == 0 ? : |
|
416
|
3 |
8 |
if $pos < 0 |
|
417
|
1 |
7 |
if $pos >= $length |
|
427
|
0 |
5 |
if $length < $impl->{'pos'} |