Branch Coverage

blib/lib/Text/Perlate.pm
Criterion Covered Total %
branch 0 114 0.0


line true false branch
350 0 0 unless $$options{'params'}
351 0 0 unless $$options{'path'}
355 0 0 if ($default eq 'params') { }
0 0 elsif ($default eq 'path') { }
0 0 elsif ($default eq 'input_file' or $default eq 'input_string') { }
366 0 0 unless exists $$options{'input_file'} or exists $$options{'input_string'}
368 0 0 unless exists $$options{$default}
399 0 0 if (defined $$options{'input_string'}) { }
0 0 elsif (defined $$options{'input_file'}) { }
402 0 0 unless exists $$options{'cache_id'}
403 0 0 if (defined $$options{'cache_id'})
406 0 0 if $debug
415 0 0 if ($$options{'skip_path'} or $filename =~ qr"^/"s) { }
417 0 0 if $debug
418 0 0 unless open $fh, '<', $filename
421 0 0 if $debug
423 0 0 if $debug
424 0 0 if (-e "$path/$filename")
425 0 0 if $debug
426 0 0 unless open $fh, '<', "$path/$filename"
429 0 0 if $debug
431 0 0 unless ($fh)
438 0 0 unless @stat
440 0 0 if $debug
443 0 0 if (not $compiled or $$options{'preprocess_only'})
448 0 0 if $debug and $compiled
449 0 0 unless $compiled or defined $input
452 0 0 unless (defined $package_name)
454 0 0 if (defined $run_count) { }
461 0 0 if (defined $input)
462 0 0 unless $input =~ qr/^(.*)$/s
466 0 0 if ($$options{'preprocess_only'})
467 0 0 if $debug
470 0 0 unless ($compiled)
471 0 0 if $debug
472 0 0 unless $$options{'raw'}
473 0 0 if $debug
476 0 0 if $debug
494 0 0 unless ($input =~ s/^(.*?)\[\[(\-*|\+)(#?)(\s.*?\s)(\-*|\+)\]\]//s or $input =~ s/^(.*)$//s)
505 0 0 if ($text =~ qr/(\[\[.*)/s)
508 0 0 if (not $tag =~ qr/^\[\[(\-*|\+)#?\s/s) { }
0 0 elsif ($tag =~ qr/\]\]/s) { }
0 0 elsif (not $tag =~ qr/\]\]/s) { }
521 0 0 if ($text =~ qr/(.*?\]\])/s)
526 0 0 if (defined $code and $code =~ qr/^(.*?\]\])/s)
533 0 0 if (defined $code and $code =~ qr/\[\[/s)
543 0 0 if (defined $strip_pre)
547 0 0 if ($strip_pre eq '+') { }
561 0 0 if (defined $text and $text ne '')
578 0 0 if (defined $strip_post)
582 0 0 if ($strip_post eq '+') { }
594 0 0 if (defined $code and $code ne '')
597 0 0 unless $comment_flag
648 0 0 if (defined $reported_filename) { }
673 0 0 if $@
686 0 0 if $debug and $debug >= 10
688 0 0 if $@