Condition Coverage

blib/lib/Inline/Files/Virtual.pm
Criterion Covered Total %
condition 35 86 40.7


and 2 conditions

line l !l condition
204 0 0 $^W and warn "Could not vf_save '${file}'\n$!" and return 0

and 3 conditions

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

or 2 conditions

line l !l condition
126 22 2 $file ||= ''
128 9 15 $1 || ''
131 0 1 $mode || '-|'
138 0 2 $mode || $1 || '<'
140 30 12 $mode ||= '<'
425 0 5 $length ||= 0

or 3 conditions

line l !l&&r !l&&!r condition
31 0 0 0 TRACING() or ARGS()
33 0 0 0 TRACING() or ARGS()
114 0 5 29 ref $glob or $glob =~ /::/
233 5 0 23 ref $glob or $glob =~ /::/
243 0 0 11 ref $glob or $glob =~ /::/
253 0 0 0 ref $glob or $glob =~ /::/
263 0 0 0 ref $glob or $glob =~ /::/
274 0 0 0 ref $glob or $glob =~ /::/
366 0 1 16 my $list_context ||= wantarray