Condition Coverage

lib/Pod/Simple/PullParser.pm
Criterion Covered Total %
condition 42 67 62.6


and 3 conditions

line !l l&&!r l&&r condition
343 0 0 52 defined $titlename and $titlename =~ /^[A-Z ]{1,60}$/s
351 0 10 563 ++$token_count <= ($max_token || 1000000) and defined(my $token = $self->get_token)
358 113 101 62 $token->is_start and $token->tagname eq 'head1'
366 1 1 62 $token->is_end and $token->tagname eq 'head1'
378 16 0 10 $desperate_for_title and $head1_text_content =~ /\S/
16 2 8 $desperate_for_title and $head1_text_content =~ /\S/ and not $head1_text_content =~ /^[ A-Z]+$/s
2 2 6 $desperate_for_title and $head1_text_content =~ /\S/ and not $head1_text_content =~ /^[ A-Z]+$/s and not $head1_text_content =~ /\((?: NAME | TITLE | VERSION | AUTHORS? | DESCRIPTION | SYNOPSIS | COPYRIGHT | LICENSE | NOTES? | FUNCTIONS? | METHODS? | CAVEATS? | BUGS? | SEE\ ALSO | SWITCHES | ENVIRONMENT )\)/sx
4 6 0 $desperate_for_title and $head1_text_content =~ /\S/ and not $head1_text_content =~ /^[ A-Z]+$/s and not $head1_text_content =~ /\((?: NAME | TITLE | VERSION | AUTHORS? | DESCRIPTION | SYNOPSIS | COPYRIGHT | LICENSE | NOTES? | FUNCTIONS? | METHODS? | CAVEATS? | BUGS? | SEE\ ALSO | SWITCHES | ENVIRONMENT )\)/sx and $max_content_length ? length $head1_text_content <= $max_content_length : 1
415 0 0 36 $token->is_start and $content_containers{$token->tagname}
428 12 12 36 $token->is_end and $content_containers{$token->tagname}
437 0 0 36 $para_text_content =~ /\S/ and $max_content_length ? length $para_text_content <= $max_content_length : 1

or 2 conditions

line l !l condition
86 0 89 $self->{'token_buffer'} ||= []
87 0 89 $self->{'start_token_class'} ||= 'Pod::Simple::PullParserStartToken'
88 0 89 $self->{'text_token_class'} ||= 'Pod::Simple::PullParserTextToken'
89 0 89 $self->{'end_token_class'} ||= 'Pod::Simple::PullParserEndToken'
351 573 0 $max_token || 1000000

or 3 conditions

line l !l&&r !l&&!r condition
57 0 0 0 'Pod::Simple::PullParser' eq ref $_[0] or $_[0]
61 0 0 0 ref $_[0] || $_[0]
117 23 0 0 $self->{'source_fh'} || Carp::croak('You have to call set_source before you can call get_token')
186 215 156 56 length $1 or length $2
371 0 56 length $1 or length $2 or pos ${$$self{'source_scalar_ref'};} != length ${$self->{'source_scalar_ref'};}
234 0 1 89 $self->{'source_fh'} or $self->{'source_scalar_ref'}
1 0 89 $self->{'source_fh'} or $self->{'source_scalar_ref'} or $self->{'source_arrayref'}
378 23 13 26 $head1_text_content eq $titlename or $head1_text_content =~ /\($titlename_re\)/s