Branch Coverage

blib/lib/Pod/Parser.pm

Criterion	Covered	Total	%
branch	0	156	0.0

line	true	false	branch
741	0	0	ref $_[0] ? :
755	0	0	if (defined $expand_seq and $expand_seq eq "interior_sequence")
765	0	0	unless ref $xseq_sub
766	0	0	unless ref $xtext_sub
767	0	0	unless ref $xptree_sub
789	0	0	if (/^([A-Z])(<(?:<+(?:\r?\n|[ \t]))?)$/) { }
	0	0	elsif (@seq_stack > 1) { }
	0	0	elsif (length $_) { }
800	0	0	if @seq_stack > 1
807	0	0	if ($ldelim eq "<" and /\A(.*?)(>)/s or /\A(.*?)(\s+$rdelim)/s)
815	0	0	if length $post_seq
817	0	0	if (length $_)
820	0	0	$expand_text ? :
823	0	0	if (length $seq_end)
829	0	0	$expand_seq ? :
832	0	0	if (@seq_stack > 1) { }
844	0	0	$expand_text ? :
853	0	0	@seq_stack > 1 ? :
862	0	0	unless ref $errorsub and &{$errorsub;}($errmsg) or defined $errorsub and $self->$errorsub($errmsg)
865	0	0	$expand_seq ? :
871	0	0	$expand_ptree ? :
928	0	0	if $text =~ /^={1,2}\S/
931	0	0	if $wantNonPods
934	0	0	if $Pod::Parser::myData{'_CUTTING'}
948	0	0	if (exists $Pod::Parser::myData{'_SELECTED_SECTIONS'})
949	0	0	unless $self->is_selected($text)
954	0	0	unless ($wantNonPods)
956	0	0	unless defined $text and length $text
957	0	0	if $Pod::Parser::myData{'_CUTTING'}
963	0	0	if ($text =~ /^(={1,2})(?=\S)/)
970	0	0	unless defined $sep
971	0	0	unless defined $text
974	0	0	if ($cmd eq "cut")
976	0	0	unless $Pod::Parser::myOpts{'-process_cut_cmd'}
997	0	0	if ($Pod::Parser::myData{'_WHITESPACE'} and $Pod::Parser::myOpts{'-warnings'} and not $text =~ /^\s+/ && ($Pod::Parser::myData{'_PREVIOUS'} || '') eq 'verbatim')
1003	0	0	unless ref $errorsub and &{$errorsub;}($errmsg) or defined $errorsub and $self->$errorsub($errmsg)
1008	0	0	if (length $cmd) { }
	0	0	elsif ($text =~ /^\s+/) { }
1026	0	0	$text =~ /^[^\S\r\n]+\r*\Z/m ? :
1068	0	0	ref $_[0] eq 'HASH' ? :
1070	0	0	unless $in_fh
1078	0	0	if exists $opts{'-cutting'}
1089	0	0	$tied_fh ? :
1091	0	0	unless defined $textline and length $textline
1093	0	0	if (not length $paragraph and $textline =~ /^==/) { }
1106	0	0	unless $textline =~ /^[^\S\r\n]*[\r\n]*$/ and length $paragraph
1115	0	0	if (length $paragraph)
1173	0	0	ref $_[0] eq 'HASH' ? :
1176	0	0	if ($] < "5.006")
1184	0	0	if (defined $infile and ref $infile) { }
	0	0	elsif (not defined $infile && length $infile or $infile eq '-' or $infile =~ /^<&(?:STDIN|0)$/i) { }
1185	0	0	if (ref($infile) =~ /^(SCALAR|ARRAY|HASH|CODE|REF)$/)
1204	0	0	unless open $in_fh, "< $infile"
1216	0	0	if (ref $outfile) { }
	0	0	elsif (not defined $outfile && length $outfile or $outfile eq '-' or $outfile =~ /^>&?(?:STDOUT|1)$/i) { }
	0	0	elsif ($outfile =~ /^>&(STDERR|2)$/i) { }
1218	0	0	if (ref($outfile) =~ /^(ARRAY|HASH|CODE)$/) { }
	0	0	elsif (ref $outfile eq 'SCALAR') { }
1239	0	0	if (defined $Pod::Parser::myData{'_TOP_STREAM'}) { }
1257	0	0	if -d $outfile
1258	0	0	unless open $out_fh, "> $outfile"
1268	0	0	if $close_input
1270	0	0	if $close_output
1309	0	0	@_ > 1 ? :
1330	0	0	@_ > 1 ? :
1376	0	0	if @_ == 0
1377	0	0	if (@_ == 1)
1379	0	0	ref $_ ? :
1553	0	0	unless (defined $Pod::Parser::myData{'_TOP_STREAM'})
1554	0	0	unless defined $out_fh
1560	0	0	unless defined $Pod::Parser::myData{'_OUTFILE'}
1561	0	0	if defined $out_fh
1562	0	0	unless defined $in_fh
1563	0	0	unless defined $Pod::Parser::myData{'_INFILE'}
1575	0	0	if @Pod::Parser::input_stack == 1
1606	0	0	if @Pod::Parser::input_stack > 0
1607	0	0	if @Pod::Parser::input_stack == 1
1616	0	0	if (@Pod::Parser::input_stack > 0) { }