Branch Coverage

blib/lib/Path/Iterator/Rule.pm
Criterion Covered Total %
branch 117 130 90.0


line true false branch
30 18 89 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 1431 if ref $class
61 1431 1 if (CORE::not $class->can($name)) { }
68 1211 220 if (CORE::not $skip_negation)
112 0 78 $^O eq 'MSWin32' ? :
145 5 62 ref $_[-1] && !&Scalar::Util::blessed($_[-1]) ? :
13 67 ref $_[0] && !&Scalar::Util::blessed($_[0]) ? :
166 2 78 defined $opts{'report_symlinks'} ? :
178 74 6 @_ ? :
185 78 726 unless $item
186 200 526 if (ref $item eq 'CODE')
191 9 517 if ref $item eq 'ARRAY'
192 501 16 $opt_stringify ? :
197 15 502 if (-l $string_item)
198 4 11 unless $opt_follow_symlinks
199 2 13 unless $opt_report_symlinks
202 390 125 if ($has_rules)
205 383 7 if ($opt_error_handler) { }
215 26 362 if (ref $interest eq 'SCALAR')
222 34 479 if ($opt_visitor and $interest)
229 200 2 if (-d $string_item and CORE::not $prune and !$opt_loop_safe || $self->_is_unique($string_item, $stash))
233 0 200 if (CORE::not -r $string_item) { }
239 15 185 if ($can_children) { }
242 12 3 if ($opt_sorted)
251 183 2 if ($opt_sorted) { }
253 573 183 if $_ ne '.'
257 14 2 if $_ ne '.'
262 31 169 if ($opt_depthfirst) { }
267 3 6 $opt_relative ? :
9 22 if $interest and $opt_depthfirst > 0
278 12 19 if $opt_depthfirst > 0
287 14 270 $opt_relative ? :
284 217 if $interest
309 69 9 if (wantarray) { }
1 8 elsif (defined wantarray) { }
346 5 108 if ref $result eq 'SCALAR'
348 3 20 $prune ? :
23 90 if $result
350 2 33 $prune ? :
361 1 37 ref $result ? :
373 3 23 if (ref $result eq 'SCALAR') { }
385 6 20 $prune ? :
395 1 811 if (CORE::not ref $result and $result eq '0 but true')
401 42 769 if ref $result eq 'SCALAR'
403 35 377 $prune ? :
412 399 unless $result
405 7 241 $prune ? :
417 25 129 if (&Scalar::Util::blessed($arg) and $arg->isa('Path::Iterator::Rule')) { }
128 1 elsif (ref $arg eq 'CODE') { }
435 0 194 unless @st
436 194 0 if (@st) { }
440 0 0 -d $string_item ? :
454 10 32 ref $re eq 'Regexp' ? :
455 39 3 unless $add
457 3 0 $add ? :
463 3 0 if ($] ge 5.01) { }
479 3 0 if ($] >= 5.014) { }
487 0 0 if length $neg
504 4 29 if (@patterns > 1) { }
507 10 18 &List::Util::first(sub { $name =~ /$_/; } , @patterns) ? :
514 40 93 $name =~ /$pattern/ ? :