Branch Coverage

blib/lib/Path/Iterator/Rule.pm
Criterion Covered Total %
branch 115 128 89.8


line true false branch
30 18 88 if ref $class
44 1 2 if (ref $d eq 'HASH') { }
1 1 elsif (ref $d eq 'ARRAY') { }
46 1 0 ref $v ? :
51 1 0 ref $_ ? :
60 1 1366 if ref $class
61 1366 1 if (CORE::not $class->can($name)) { }
68 1156 210 if (CORE::not $skip_negation)
112 0 75 $^O eq 'MSWin32' ? :
145 5 62 ref $_[-1] && !&Scalar::Util::blessed($_[-1]) ? :
10 67 ref $_[0] && !&Scalar::Util::blessed($_[0]) ? :
166 2 75 defined $opts{'report_symlinks'} ? :
176 71 6 @_ ? :
183 75 499 unless $item
184 6 493 if ref $item eq 'ARRAY'
185 477 16 $opt_stringify ? :
190 15 478 if (-l $string_item)
191 4 11 unless $opt_follow_symlinks
192 2 13 unless $opt_report_symlinks
195 390 101 if ($has_rules)
198 383 7 if ($opt_error_handler) { }
209 26 362 if (ref $interest eq 'SCALAR')
216 10 479 if ($opt_visitor and $interest)
223 191 2 if (-d $string_item and CORE::not $prune and !$opt_loop_safe || $self->_is_unique($string_item, $stash))
227 0 191 if (CORE::not -r $string_item) { }
233 6 185 if ($can_children) { }
235 3 3 if ($opt_sorted)
242 183 2 if ($opt_sorted) { }
245 573 183 if $_ ne '.'
250 14 2 if $_ ne '.'
254 25 166 if ($opt_depthfirst) { }
257 3 3 $opt_relative ? :
6 19 if $interest and $opt_depthfirst > 0
268 9 16 if $opt_depthfirst > 0
276 14 249 $opt_relative ? :
263 217 if $interest
298 69 6 if (wantarray) { }
1 5 elsif (defined wantarray) { }
335 5 108 if ref $result eq 'SCALAR'
337 3 20 $prune ? :
23 90 if $result
339 2 33 $prune ? :
350 1 37 ref $result ? :
362 3 23 if (ref $result eq 'SCALAR') { }
374 6 20 $prune ? :
384 1 811 if (CORE::not ref $result and $result eq '0 but true')
390 42 769 if ref $result eq 'SCALAR'
392 35 377 $prune ? :
412 399 unless $result
394 7 241 $prune ? :
406 25 129 if (&Scalar::Util::blessed($arg) and $arg->isa('Path::Iterator::Rule')) { }
128 1 elsif (ref $arg eq 'CODE') { }
424 0 185 unless @st
425 185 0 if (@st) { }
429 0 0 -d $string_item ? :
443 10 32 ref $re eq 'Regexp' ? :
444 39 3 unless $add
446 3 0 $add ? :
452 3 0 if ($] ge 5.01) { }
468 3 0 if ($] >= 5.014) { }
476 0 0 if length $neg
493 4 29 if (@patterns > 1) { }
496 10 18 &List::Util::first(sub { $name =~ /$_/; } , @patterns) ? :
503 40 93 $name =~ /$pattern/ ? :