Branch Coverage

lib/Test/Pod/Links.pm
Criterion Covered Total %
branch 77 78 98.7


line true false branch
29 12 4 scalar @_ ? :
30 1 15 unless (@args)
38 1 17 unless (-e $arg)
43 1 16 if (-l $arg)
48 3 13 if (-f $arg)
53 1 12 unless (-d $arg)
66 19 10 unless -f $File::Find::name
74 7 8 unless (@files)
80 1 7 unless (@pod_files)
87 1 11 unless ($self->pod_file_ok($file))
94 6 1 if $rc
101 1 52 if @_ % 2
114 7 44 if (exists $args{'ignore'})
116 2 5 if (ref $ignore eq ref []) { }
126 8 43 if (exists $args{'ignore_match'})
128 4 4 if (ref $ignore_match eq ref []) { }
140 12 39 $ignore_regex ne '' ? :
145 7 22 if $key eq 'ignore'
146 8 14 if $key eq 'ignore_match'
147 13 1 if $key eq 'ua'
158 3 13 if @_ != 2 or not defined $file
162 1 12 unless (-f $file)
171 1 11 if ($pod->any_errata_seen)
181 32 0 if defined $_
186 3 8 if (defined $ignore_regex)
196 2 24 if exists $url_checked_in_this_file{$link}
199 21 3 unless (exists $self->{'_cache'}{$link})
206 2 22 unless ($res->{'success'})
214 9 2 if $rc
222 3 11 if (-d 'blib') { }
6 5 elsif (-d 'lib') { }
229 4 10 if (-d 'bin')
233 2 12 if (-d 'script')
244 2 138 if @_ != 2 or ref $node_ref ne ref [] or scalar @{$node_ref;} < 2
249 48 90 if ($elem_name eq 'L')
255 161 124 if ref $subnode ne ref []
266 53 51 if (@_)
277 56 13 if (@_)
279 3 53 unless &Scalar::Util::blessed($ua) and $ua->can('head')