| line |
!l |
l&&!r |
l&&r |
condition |
|
106
|
2 |
22 |
10 |
$file and $file =~ /^(?:\|-|-\||>|<|>>|>:.*)$/ |
|
130
|
9 |
14 |
1 |
not $mode and $file =~ s/\s*\|\s*$// |
|
141
|
2 |
32 |
0 |
$file and exists $mfs{$file} |
|
144
|
32 |
0 |
2 |
not $file and defined $Inline::Files::{'get_filename'} |
|
178
|
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()) |