Branch Coverage

blib/lib/Pod/Simple/Search.pm
Criterion Covered Total %
branch 111 258 43.0


line true false branch
8 14 0 unless defined &Pod::Simple::Search::DEBUG
52 0 15 unless ref $self
61 5 10 if $self->{'limit_glob'}
67 2 36 unless ('File::Spec'->file_name_is_absolute($try))
76 3 35 if ($self->{'dir_prefix'}) { }
82 0 3 if $verbose
88 0 38 if ($self->{'_dirs_visited'}{$start_in}) { }
89 0 0 if $verbose
95 0 38 unless (-e $start_in)
96 0 0 if $verbose
102 38 0 if (-d $start_in) { }
0 0 elsif (-f _) { }
104 0 38 if $verbose
106 0 38 if $verbose
111 0 0 if $verbose
115 0 0 if $verbose
118 0 15 if $self->progress
122 1 14 unless defined wantarray
123 0 14 unless wantarray
138 0 38 if ($is_case_insensitive) { }
152 686 4146 if ($isdir)
154 16 670 unless ($recurse)
155 0 16 if $verbose
159 4 666 if ($self->{'_dirs_visited'}{$file})
160 0 4 if $verbose
164 0 666 if $verbose
166 666 0 unless ($laborious)
167 0 0 if (/^(\d+\.[\d_]{3,})\z/s and do { my $x = $1; $x =~ tr/_//d; $x != $] })
170 0 0 if $verbose
174 608 58 if (/^([A-Za-z][a-zA-Z0-9_]*)\z/s) { }
175 0 608 if $verbose
177 0 58 if $verbose
187 0 4146 if ($laborious) { }
188 0 0 unless (/\.(pod|pm|plx?)\z/i || -x _ and -T _)
192 0 0 if $verbose > 1
196 2052 2094 unless (/^[-_a-zA-Z0-9]+\.(?:pod|pm|plx?)\z/is)
197 0 2052 if $verbose > 1
202 0 2094 if $verbose
204 0 2094 if $verbose > 0.01
206 62 2032 if ($limit_re and not $name =~ /$limit_re/i)
207 0 62 if $verbose
211 75 1957 if (not $shadows and &$seen($name))
212 0 75 if $verbose
220 0 1957 if $progress
221 749 1208 unless $self->contains_pod($file)
225 10 1198 if (my $prev = &$seen($name)) { }
226 0 10 if $verbose
232 0 1208 if $verbose
233 1131 77 if ($callback)
273 0 0 if ($^O eq 'VMS' and $name eq lc $name || $name eq uc $name)
274 0 0 unless open PODFILE, "<$file"
280 0 0 if $line =~ /^=\w/
281 0 0 if $line =~ /^=cut/
282 0 0 unless $in_pod
283 0 0 if $line =~ /^\s*\z/
284 0 0 if $in_pod and $line =~ /^X
285 0 0 if ($in_name)
286 0 0 if ($line =~ /(\w+::)?(\w+)/)
290 0 0 if $verbose
291 0 0 unless ($name =~ s/$prefix$podname/$prefix$podname/i)
292 0 0 if $verbose
298 0 0 if $line =~ /^=head1 NAME/
321 0 646 if (@$modname_bits >= 10)
322 0 0 if $verbose
326 0 646 unless (-d $dir_long)
327 0 0 if $verbose > 2
330 0 646 unless (opendir INDIR, $dir_long)
331 0 0 if $verbose > 2
338 0 27224 unless $Pod::Simple::Search::a->[1] cmp $Pod::Simple::Search::b->[1]
345 608 38 unless $dir_bare eq ''
349 646 4832 if $i eq $here_string or $i eq $up_string or $i eq ''
352 0 4832 if (not -r $i_full) { }
4146 686 elsif (-f $i_full) { }
686 0 elsif (-d _) { }
353 0 0 if $verbose
360 0 686 if $^O eq 'VMS'
364 78 608 if ($rv eq 'PRUNE') { }
365 0 78 if $verbose > 1
371 0 0 if $verbose > 1
393 0 0 if @ARGV
402 0 0 if ($file =~ /\.pod$/i) { }
0 0 elsif (not open(INPOD, $file)) { }
412 0 0 if $lines++ > $Pod::Simple::Search::MAX_VERSION_WITHIN
413 0 0 if (s/^\s*\$VERSION\s*=\s*//s and /\d/)
420 0 0 if /^v?["']?([0-9_]+(\.[0-9_]+)*)["']?$/s or /\$Revision:\s*([0-9_]+(?:\.[0-9_]+)*)\s*\$/s
429 0 0 if /\$Name:\s*([^\$]+)\$/s
456 0 0 if ($^O eq 'MacOS') { }
471 0 2094 if $^O =~ /mswin|os2/i
474 0 2094 if $^O eq 'VMS'
484 15 1115 unless $self->{'inc'}
487 0 1115 if ($^O eq 'MacOS') { }
506 0 0 if ($_ eq '.') { }
0 0 elsif ($_ =~ s[^((?:\.\./)+)][':' x (length($1) / 3);]e) { }
528 0 5 if $self->{'verbose'}
531 1 4 if (not exists $self->{'dir_prefix'} and $limit_glob =~ /^(?:\w+\:\:)+/s)
536 0 1 if $self->{'verbose'}
549 0 18012 unless opendir my $dh, $dir
556 0 1115 unless ref $self
559 0 1115 unless defined $pod and length $pod
566 0 1115 if $verbose
572 1114 1 if $self->inc
576 0 10121 unless defined $dir and length $dir
577 0 10121 if $seen_dir{$dir}
579 0 10121 unless (-d $dir)
580 0 0 if $verbose
583 0 10121 if $verbose
585 0 10121 if $verbose
589 1115 37956 if (-f $fullext and $self->contains_pod($fullext))
590 0 1115 if $verbose
591 0 57 if (@parts > 1 and lc $parts[0] eq 'pod' and $self->is_case_insensitive and $ext eq '.pod')
596 0 0 unless (grep {$fullext eq $_;} _actual_filenames($subdir, "$parts[-1].pod"))
597 0 0 if $verbose
600 0 0 if (-f $pm and $self->contains_pod($pm))
602 0 0 if (grep {$pm eq $_;} _actual_filenames($subdir, "$parts[-1].pm"))
603 0 0 if $verbose
615 2369 0 if (-d $subdir)
616 0 2369 if $verbose
632 0 3073 if $verbose > 1
633 0 3073 unless (open MAYBEPOD, "<$file")
638 0 3073 if $Pod::Simple::Search::SLEEPY
643 2323 821519 if (/^=(head\d|pod|over|item)\b/s)
644 0 2323 unless close MAYBEPOD
646 0 2323 if $verbose > 1
650 0 750 unless close MAYBEPOD
651 0 750 if $verbose > 1
663 0 5044 unless @_ == 1 || @_ == 2 and ref $_[0]
668 4897 147 if @_ == 1
682 0 11 unless ref $self
695 11 91 unless defined $in