Branch Coverage

blib/lib/Pod/Simple/Select.pm
Criterion Covered Total %
branch 65 152 42.7


line true false branch
209 1 0 if (ref $ar_r eq 'ARRAY') { }
0 0 elsif (ref $ar_r eq 'HASH') { }
217 1 0 if $next
258 1 0 unless (defined $token)
264 1 1 if (ref $val eq 'ARRAY') { }
266 0 2 if (ref $key eq 'ARRAY') { }
297 1 3 unless $first_child
306 0 3 if ($t->children_count) { }
325 0 0 if (ref $token->{'pod_pat'} eq 'Regexp')
332 0 0 defined $token->get_pod_pattern ? :
333 0 0 defined $pat && defined $pat->[0] ? :
353 0 1 unless open $out, '>', \$h_value
369 0 0 if ($file) { }
371 0 0 unless open $fh, '>', $file
392 0 1 if scalar @array == 1
401 1 0 if ($token->get_key eq 'doc_Document_end_') { }
402 0 1 unless $token->previous->line_end
405 0 0 unless $token->line_end
412 0 3 if $token->children_count
423 3 0 if ($self->{'output_as_hash'})
432 0 3 unless open $out, '>', \$h_value
438 1 0 if $self->{'output_as_hash'}
455 1 8 unless $mytoken->line_end
465 0 0 $token ? :
472 0 0 unless $token->line_end
481 15 51 unless defined $attr_hr->{'start_line'}
489 2 49 $token->key_needed ? :
51 0 $token ? :
499 2 49 if ($token->is_pod_matching($e_name))
508 2 0 if $token->previous->line_end == 0
514 2 49 if ($token->key_needed and $key) { }
516 2 0 if ($token->is_key_matching($key)) { }
520 0 2 unless $tp->line_end
537 14 35 if ($e_name =~ /^head/i)
541 0 14 unless $tp->line_end
557 0 0 unless defined $attr_hr->{'start_line'}
558 0 0 unless $token
568 0 0 defined $token ? :
0 0 $self->{'doc'}->key_needed ? :
571 0 0 if ($self->{'doc'}->is_pod_matching($e_name))
576 0 0 if ($token->previous) { }
577 0 0 if $token->previous->line_end == 0
588 0 0 $self->{'doc'}->key_needed ? :
0 0 defined $key ? :
592 0 0 if ($self->{'doc'}->key_needed and $key) { }
596 0 0 if ($self->{'doc'}->is_key_matching($key)) { }
600 0 0 if ($token->previous) { }
601 0 0 unless $token->previous->line_end
621 0 0 unless $token->line_end
641 0 0 unless $token->line_end
648 0 0 if ($e_name =~ /^head/i)
650 0 0 if ($token->previous) { }
654 0 0 unless $token->previous->line_end
669 0 66 unless $token
670 2 64 if ($token->key_needed)
678 0 0 if ($self->{'doc'}->key_needed)
720 3 1 if ($parent) { }
766 0 4 if (ref $pod_dir eq 'ARRAY') { }
784 1 2 unless scalar @{$self->{'children'};}
794 3 67 if ($v)
797 70 0 if $self->{'previous'}
802 3 7 if ($v)
815 9 1 if $self->{'next'}
824 0 4 unless $self->children_count
829 3 1 if ($index < @{$self->{'children'};}) { }
834 0 1 if $self->{'parent'}
845 2 6 if ($pos)
855 3 57 if ($pos)
880 0 51 unless $el
882 51 0 if ($self->{'pod_pat'})
886 2 49 if ($el =~ /\b$p\b/)
902 0 2 unless $el
909 2 0 if ($el =~ /\b$p\b/)
910 0 2 unless $self->{'key'}
927 0 168 if defined $v
934 0 0 if (ref $self->{'key_pat'}) { }