| line |
!l |
l&&!r |
l&&r |
condition |
|
106
|
2 |
22 |
18 |
$file and $file =~ /^(?:\|-|-\||>|<|>>|>:.*)$/ |
|
130
|
9 |
14 |
1 |
not $mode and $file =~ s/\s*\|\s*$// |
|
141
|
2 |
40 |
0 |
$file and exists $mfs{$file} |
|
144
|
40 |
0 |
2 |
not $file and defined $Inline::Files::{'get_filename'} |
|
177
|
5 |
2 |
5 |
exists $write{$mode} and not exists $preserve{$mode} |
|
204
|
0 |
0 |
0 |
$^W and warn "Could not vf_save '${file}'\n$!" |
|
|
0 |
0 |
4 |
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'};}) |
|
|
0 |
0 |
4 |
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 |
|
299
|
0 |
0 |
0 |
$^W && warn(not_output()) |
|
310
|
0 |
0 |
0 |
$^W && warn(not_output()) |
|
333
|
0 |
1 |
4 |
$INC{'Inline/Files.pm'} and $$impl{'symbol'} |
|
341
|
0 |
0 |
0 |
$^W && warn(not_input()) |
|
361
|
0 |
0 |
0 |
$^W && warn(not_input()) |
|
368
|
5 |
0 |
17 |
$$impl{'pos'} < length $$impl{'vfile'}{'data'} and $$impl{'vfile'}{'data'} =~ /\A(.{$$impl{'pos'}})($match)/s |
|
392
|
0 |
0 |
0 |
$^W && warn(not_input()) |