Branch Coverage

blib/lib/Pod/Extract/URI.pm
Criterion Covered Total %
branch 73 76 96.0


line true false branch
143 54 265 if (exists $args{$arg})
159 4 25 if ($my_args{'schemeless'})
193 84 50 if ($self->want_textblock)
196 73 11 if (not $self->L_only)
209 15 18 if ($self->want_verbatim and not $self->L_only)
221 1 102 if ($cmd eq 'for' and index($text, 'stop_uris') == 0) { }
62 40 elsif ($self->want_command) { }
231 53 9 if (not $self->L_only)
243 9 59 if ($seq_cmd eq 'L' and $self->L_only) { }
6 53 elsif ($seq_cmd eq 'E') { }
259 100 4 if ($self->strip_brackets)
264 6 98 if ($self->use_canonical)
276 4 100 if (scalar @$include and not grep({$scheme eq $_;} @$include))
281 3 97 if (scalar @$exclude and grep {$scheme eq $_;} @$exclude)
286 7 90 if (scalar @$stop and grep {$test_text =~ /$_/;} @$stop)
290 3 87 if ($self->_check_stop_sub($uri, $text))
296 83 4 unless (exists $$self{'URIS'}{$uri_str})
319 270 87 if (defined $line)
321 270 0 if (defined $para) { }
327 87 270 if (wantarray) { }
339 29 152 if (defined $finder)
357 30 214 if (defined $l_only)
375 30 105 if (defined $command)
393 30 137 if (defined $textblock)
411 30 36 if (defined $verbatim)
430 31 107 if (defined $schemes)
431 30 1 if (ref $schemes eq 'ARRAY') { }
451 31 103 if (defined $schemes)
452 30 1 if (ref $schemes eq 'ARRAY') { }
483 32 101 if (defined $urls)
484 31 1 if (ref $urls eq 'ARRAY') { }
485 2 6 UNIVERSAL::isa($_, 'Regexp') ? :
513 31 0 if (defined $sub)
514 30 1 if (ref $sub eq 'CODE') { }
545 30 107 if (defined $use)
566 30 107 if (defined $strip)
596 2 17 unless (ref $self)
613 1 0 unless (ref $self)