Branch Coverage

blib/lib/Pod/Abstract/Path.pm
Criterion Covered Total %
branch 133 164 81.1


line true false branch
227 86 60 if ($parse_tree) { }
251 45 422 if ($expression =~ m[^//]) { }
51 371 elsif ($expression =~ m[^/]) { }
6 365 elsif ($expression =~ /^\|/) { }
2 363 elsif ($expression =~ /^\&/) { }
52 311 elsif ($expression =~ /^\[/) { }
52 259 elsif ($expression =~ /^\]/) { }
11 248 elsif ($expression =~ /^(eq|lt|gt|le|ge|ne)/) { }
76 172 elsif ($expression =~ /^([#_\:a-zA-Z0-9]+)/) { }
17 155 elsif ($expression =~ /^\@([a-zA-Z0-9]+)/) { }
11 144 elsif ($expression =~ /^\((\-?[0-9]+)\)/) { }
16 128 elsif ($expression =~ /^\{(([^\}]|\\\})+)\}([i]?)/) { }
7 121 elsif ($expression =~ /^'(([^']|\\')+)'/) { }
16 105 elsif ($expression =~ /^\=\~/) { }
0 105 elsif ($expression =~ /^\.\./) { }
2 103 elsif ($expression =~ /^\^/) { }
15 88 elsif ($expression =~ /^\./) { }
2 86 elsif ($expression =~ /^\<\
1 85 elsif ($expression =~ /^\>\>/) { }
0 85 elsif ($expression =~ /^(==|!=|<=|>=)/) { }
0 85 elsif ($expression =~ /^(<|>)/) { }
0 85 elsif ($expression =~ /^\!/) { }
0 85 elsif ($expression =~ /^\%/) { }
0 85 elsif ($expression =~ /^'([\^']*)'/) { }
85 0 elsif ($expression =~ /(\s+)/) { }
282 4 12 $3 eq 'i' ? :
352 3279 35 unless $seen{$node->serial}
370 1017 856 if ($pt->{'arguments'})
373 1873 0 if ($self->can($action)) { }
393 483 1075 if ($names{$ilist->[$i]->type})
437 3 1 if $seen{$b->serial}
451 222 10 if ($pv)
463 10 1 if ($index < scalar @$ilist) { }
464 9 1 if ($index >= 0) { }
468 1 0 if ($neg <= scalar @$ilist) { }
495 34 802 if (eval { do { $r_exp->can('process') } }) { }
501 0 836 if $invert
502 172 664 if ($t_result)
515 34 19 if (scalar @$r_exp == 0 or eval { do { $r_exp->[0]->isa('Pod::Abstract::Node') } }) { }
19 0 elsif ($r_exp->[0] == 8) { }
520 32 0 unless $lb
523 127 0 unless $rb
525 0 127 if $@
535 11 8 unless $lb
537 0 19 if $@
551 18 48 if ($case) { }
560 43 13 unless defined $body
561 21 35 if ($body =~ /$regexp/)
595 4 1 if ($next)
610 7 1 if ($prev)
623 0 0 if ($n->parent)
691 64 60 if ($next) { }
693 6 58 if ($tok == 23) { }
2 56 elsif ($tok == 24) { }
718 334 60 if $next
719 334 60 if $next
722 60 334 if (not defined $next) { }
64 270 elsif (grep {$tok == $_;} 17, 9, 25, 7, 23, 24) { }
51 219 elsif ($tok == 1) { }
45 174 elsif ($tok == 2) { }
1 173 elsif ($tok == 21) { }
2 171 elsif ($tok == 20) { }
0 171 elsif ($tok == 16) { }
2 169 elsif ($tok == 22) { }
15 154 elsif ($tok == 19) { }
74 80 elsif ($tok == 3) { }
17 63 elsif ($tok == 6) { }
11 52 elsif ($tok == 4) { }
52 0 elsif ($tok == 5) { }
807 0 2 unless $self->check_name($val)
850 76 0 if ($allow{$val})
854 0 0 if ($val =~ /^[A-Z]$/)
858 0 0 if ($allow{":$val"})
871 0 52 unless $l_select->[0] == 5
875 0 52 if ($l->[0][0] == 15)
891 16 36 if ($op_tok == 17) { }
11 25 elsif ($op_tok == 25 or $op_tok == 7) { }
25 0 elsif ($op_tok == 9) { }
897 16 0 if ($re_tok == 18) { }
912 7 4 if ($rh_tok == 8) { }
937 0 52 unless $r_select->[0] == 9
939 0 52 unless $exp