Branch Coverage

blib/lib/Inline/Files/Virtual.pm
Criterion Covered Total %
branch 69 134 51.4


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 18 24 if ($file and $file =~ /^(?:\|-|-\||>|<|>>|>:.*)$/)
113 34 8 if (defined $glob) { }
114 29 5 unless ref $glob or $glob =~ /::/
124 24 18 unless ($mode)
130 1 23 if (not $mode and $file =~ s/\s*\|\s*$//)
134 7 35 unless ($file)
136 7 0 $scalar ? :
141 0 42 if $file and exists $mfs{$file}
144 2 40 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 42 unless $file
165 30 12 unless (exists $vfs{$file})
169 12 0 $file =~ /^(.*)[(](NEW)?\d+[)]$/ ? :
177 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}
284 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)
411 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'}