Branch Coverage

blib/lib/Text/vFile.pm
Criterion Covered Total %
branch 45 86 52.3


line true false branch
125 1 0 unless ref $self
138 0 1 wantarray ? :
151 0 0 unless ref $self
164 0 0 wantarray ? :
172 0 3 unless $$self{'source_file'}
174 0 3 unless open $$self{'fh'}, $$self{'source_file'}
188 3 0 if (@_)
208 2 0 if (@_)
240 0 5 ref $_[0] ? :
241 0 5 ref $_[0] ? :
267 11 9 if ($$self{'source_file'})
268 3 8 unless $$self{'fh'}
272 9 11 if ($$self{'source_text'})
273 2 7 unless $$self{'text'}
276 0 20 unless $fh or $$self{'text'}
281 11 9 $fh ? :
282 5 15 if $self->eod
287 0 15 if ($line =~ /\000/)
290 0 0 if $@
292 0 0 if ($line =~ /\000\000\000/) { }
294 0 0 if ($line =~ /^\000/) { }
302 0 0 if ($line =~ /^\000/) { }
312 0 15 if $decoder
317 0 0 $fh ? :
318 0 0 if $self->eod
319 0 0 if $decoder
325 0 15 unless $class
328 0 15 if $@
337 48 42 $fh ? :
339 0 90 if $decoder
343 0 90 if ($line =~ /^BEGIN:(.+)/)
352 15 75 if ($line =~ /^END:(.*)/)
353 0 15 unless uc $1 eq $kind
361 0 15 unless $ended
374 15 60 if ($line =~ /^([\w\-]+):(.*)/)
378 0 15 if (UNIVERSAL::can($thing, "load_$var")) { }
383 0 15 if exists $$varHandler{$var}
390 60 0 if ($line =~ /^([\w\-]+);([^:]*):(.*)/)
399 0 60 if (UNIVERSAL::can($thing, "load_$var")) { }
402 60 0 exists $attr{'type'} ? :
405 0 60 if exists $$varHandler{$var}
428 59 51 if ($_[0]{'fh'})
432 49 2 if exists $_[0]{'text'} and @{$_[0]{'text'};}