Branch Coverage

blib/lib/Overload/FileCheck.pm
Criterion Covered Total %
branch 102 116 87.9


line true false branch
172 79 6 unless ($_next_check or $check =~ qr/^-/)
178 6 4 if (not $_next_check) { }
188 2 2 if ($_next_check eq '-from_stat' or $_next_check eq '-from-stat') { }
199 2 63 if (defined $_next_check)
211 58 783 if $check =~ qr/^l?stat$/
226 0 1634 unless defined $check
228 0 1634 unless defined $MAP_FC_OP{$check}
235 0 869 unless ref $sub eq "CODE"
238 1 868 if exists $_current_mocks->{$optype}
309 14 346 $use_lstat ? :
312 7 353 if (scalar @mocked_lstat_result == 1 and not ref $mocked_lstat_result[0] and $mocked_lstat_result[0] == -1)
326 14 339 if ($use_lstat) { }
328 14 0 if defined $f_or_fh
332 339 0 if defined $f_or_fh
359 0 5 unless @stat
361 1 16 unless @stat
364 11 5 if _check_mode_type($stat[2], 16384) == Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.42.0/B/Deparse.pm line 5762.
370 3 42 unless scalar @stat
390 1 12 unless scalar @stat and defined $stat[9]
394 1 9 unless scalar @stat and defined $stat[8]
398 1 8 unless scalar @stat and defined $stat[10]
403 0 353 unless my $handler = $dispatch{$check}
411 208 49 $s ? :
417 4 93 unless defined $mode
425 0 30 unless ref $sub eq "CODE"
429 0 60 unless $optype
452 0 45 unless scalar @mocks
466 0 1528 unless defined $_current_mocks->{$optype}
470 3 0 if (not defined $file and defined $_last_call_for and not defined $$_current_mocks{$MAP_FC_OP{'stat'}})
484 8 1520 ref $file ? :
486 47 1481 unless (defined $out)
489 2 45 unless (int $!)
495 44 1437 if ($OP_CAN_RETURN_INT{$optype})
499 2 7 unless ($out or int $!)
509 94 1343 if ($OP_RETURNS_NV{$optype})
511 29 65 if (ref $out eq "SCALAR")
515 26 39 if (not ref $out and $out == -1)
521 272 1071 unless ($out)
525 31 241 unless (int $!)
532 200 871 if not ref $out and $out == -1
535 385 486 if ($OP_IS_STAT_OR_LSTAT{$optype})
549 2 383 unless $stat_is_a
553 371 12 if ($stat_is_a eq "ARRAY")
555 4 367 if ($av_size and $av_size != $stat_t_max)
561 12 0 if ($stat_is_a eq "HASH")
566 2 19 unless defined $ix
632 77 0 if (defined $type)
639 8 69 if (defined $opts->{'perms'})
646 4 73 if (defined $opts->{'uid'})
647 2 2 if ($opts->{'uid'} =~ qr/^[0-9]+$/) { }
652 1 1 unless defined $uid
657 4 72 if (defined $opts->{'gid'})
658 2 2 if ($opts->{'gid'} =~ qr/^[0-9]+$/) { }
663 1 1 unless defined $gid
689 3 55 unless ($known_opts{$k})
690 1 2 if ($k eq "mode")
696 14 41 unless defined $name2ix{$k}
725 2 5 unless $self->{'active'}