Condition Coverage

blib/lib/Pod/Simple/Search.pm
Criterion Covered Total %
condition 45 93 48.3


and 3 conditions

line !l l&&!r l&&r condition
44 13 0 0 -e '/ROOT/.CPAN/BUILD/POD-SIMPLE-3.45-0/BLIB/LIB/POD/SIMPLE/SEARCH.PM' && -e '/root/.cpan/build/pod-simple-3.45-0/blib/lib/pod/simple/search.pm'
167 665 0 0 /^(\d+\.[\d_]{3,})\z/s and do { my $x = $1; $x =~ tr/_//d; $x != $] }
188 0 0 0 /\.(pod|pm|plx?)\z/i || -x _ and -T _
206 2009 23 62 $limit_re and not $name =~ /$limit_re/i
211 43 1914 75 not $shadows and &$seen($name)
259 382 0 1940 @m and defined($x = lc $m[0])
382 1940 0 @m and defined($x = lc $m[0]) and $x eq 'site_perl' || $x =~ /^pods?$/ && @m == 1 && $shortname =~ /^perl.*\.pod$/s || $x =~ /\\d+\\.z\\d+([_.]?\\d+)?/ || $x eq lc $Config::Config{'archname'}
273 2094 0 0 $^O eq "VMS" and $name eq lc $name || $name eq uc $name
284 0 0 0 $in_pod and $line =~ /^X
413 0 0 0 s/^\s*\$VERSION\s*=\s*//s and /\d/
531 0 4 1 not exists $self->{'dir_prefix'} and $limit_glob =~ /^(?:\w+\:\:)+/s
559 0 0 1115 defined $pod and length $pod
576 0 0 10121 defined $dir and length $dir
589 37955 1 1115 -f $fullext and $self->contains_pod($fullext)
591 291 767 57 @parts > 1 and lc $parts[0] eq "pod"
1058 57 0 @parts > 1 and lc $parts[0] eq "pod" and $self->is_case_insensitive
824 0 0 @parts > 1 and lc $parts[0] eq "pod" and $self->is_case_insensitive and $ext eq ".pod"
600 0 0 0 -f $pm and $self->contains_pod($pm)
663 0 0 5044 @_ == 1 || @_ == 2 and ref $_[0]

or 2 conditions

line l !l condition
289 0 0 $1 || ''
311 0 38 $self->{'fs_recursion_maxdepth'} || 10
316 3 35 $modname_bits ||= []
341 2093 4003 $1 || 'z'
362 77 608 &$callback($i_full, $i, 1, $modname_bits) || ''
521 5 0 $self->{'limit_glob'} || (return)

or 3 conditions

line l !l&&r !l&&!r condition
34 0 13 0 ref $class || $class
188 0 0 0 /\.(pod|pm|plx?)\z/i || -x _
259 228 0 1712 $x eq 'site_perl' || $x =~ /^pods?$/ && @m == 1 && $shortname =~ /^perl.*\.pod$/s || $x =~ /\\d+\\.z\\d+([_.]?\\d+)?/ || $x eq lc $Config::Config{'archname'}
273 0 0 0 $name eq lc $name || $name eq uc $name
349 646 646 4804 $i eq $here_string or $i eq $up_string
1292 0 4804 $i eq $here_string or $i eq $up_string or $i eq ""
420 0 0 0 /^v?["']?([0-9_]+(\.[0-9_]+)*)["']?$/s or /\$Revision:\s*([0-9_]+(?:\.[0-9_]+)*)\s*\$/s
663 4897 147 0 @_ == 1 || @_ == 2