Condition Coverage

blib/lib/Fatal.pm
Criterion Covered Total %
condition 67 153 43.7


and 3 conditions

line !l l&&!r l&&r condition
377 122 6 2 $class ne 'autodie' and not $class->isa('autodie')
484 2937 58 1 not $lexical and $^H{$NO_PACKAGE}{$sub}
660 5 7 36 $letter ne ':' and $a ne '!'
662 30 2 2 $letter eq '!' and $seen{substr $a, 1}++
711 313 28 4 @to_process == 1 and substr($to_process[0], 0, 1) eq ':'
785 6 127 46 @argv and $argv[-1] =~ /[#\@]_/
840 284 3 0 $void and not $back_compat
1071 165 6 25 $hints and (ref $$hints{'list'} || '') eq 'CODE'
1116 165 5 26 $hints and (ref $$hints{'scalar'} || '') eq 'CODE'
1197 2640 0 0 $sub eq $ini and not $sub =~ /^CORE::GLOBAL::/
1210 351 2 1 $Package_Fatal{$sub} and exists $CORE_prototype_cache{"CORE::$name"}
1267 27 17 1 $insist and not $hints
1370 44 1577 1371 $core and exists $reusable_builtins{$call}
1374 1348 23 0 not $lexical and defined $code
1380 56 42 2894 $lexical and $core

or 2 conditions

line l !l condition
1069 124 72 $Retval_action{$call} || ''
1071 29 2 ref $$hints{'list'} || ''
1116 27 4 ref $$hints{'scalar'} || ''
1653 1 3 0 CORE::open($_[0], $_[1], @_[2 .. $#_]) || Carp::croak("Can't open(@_): $!")

or 3 conditions

line l !l&&r !l&&!r condition
498 217 136 2639 $Original_user_sub{$sub} ||= $sub_ref
990 1 0 0 eval { do { POSIX::EWOULDBLOCK() } } || $_EWOULDBLOCK{$^O} || _autocroak(q[Internal error - can't overload flock - EWOULDBLOCK not defined on this system.])
995 0 0 0 eval { do { POSIX::EAGAIN() } } || _autocroak(q[Internal error - can't overload flock - EAGAIN not defined on this system.])
1274 31 13 0 $hints ||= autodie::hints::DEFAULT_HINTS()
1380 2894 0 98 $lexical and $core or defined $code
1438 54 39 0 $exception_class_for{$class} ||= $class->exception_class
1653 0 1 0 CORE::open($_[0]) || Carp::croak("Can't open(@_): $!")
1 0 1 CORE::open($_[0], $_[1]) || Carp::croak("Can't open(@_): $!")
1655 0 1 0 rmdir $_[0] || Carp::croak("Can't rmdir(@_): $!")
0 0 0 chdir() || Carp::croak("Can't chdir(@_): $!")
1 0 0 chdir $_[0] || Carp::croak("Can't chdir(@_): $!")
0 0 0 unlink(@_) || Carp::croak("Can't unlink(@_): $!")
0 0 0 shmctl($_[0], $_[1], $_[2]) || Carp::croak("Can't shmctl(@_): $!")
0 0 0 symlink($_[0], $_[1]) || Carp::croak("Can't symlink(@_): $!")
0 0 0 msgrcv($_[0], $_[1], $_[2], $_[3], $_[4]) || Carp::croak("Can't msgrcv(@_): $!")
0 0 0 utime(@_) || Carp::croak("Can't utime(@_): $!")
0 0 0 msgctl($_[0], $_[1], $_[2]) || Carp::croak("Can't msgctl(@_): $!")
0 0 0 semctl($_[0], $_[1], $_[2], $_[3]) || Carp::croak("Can't semctl(@_): $!")
0 0 0 mkdir($_[0]) || Carp::croak("Can't mkdir(@_): $!")
0 0 0 mkdir($_[0], $_[1]) || Carp::croak("Can't mkdir(@_): $!")
0 0 0 kill(@_) || Carp::croak("Can't kill(@_): $!")
0 0 0 truncate($_[0], $_[1]) || Carp::croak("Can't truncate(@_): $!")
0 0 0 link($_[0], $_[1]) || Carp::croak("Can't link(@_): $!")
0 0 0 shmget($_[0], $_[1], $_[2]) || Carp::croak("Can't shmget(@_): $!")
4 1 0 semop($_[0], $_[1]) || Carp::croak("Can't semop(@_): $!")
0 0 0 rename($_[0], $_[1]) || Carp::croak("Can't rename(@_): $!")
0 0 0 semget($_[0], $_[1], $_[2]) || Carp::croak("Can't semget(@_): $!")
0 0 0 readlink $_[0] || Carp::croak("Can't readlink(@_): $!")
0 0 0 chown(@_) || Carp::croak("Can't chown(@_): $!")
4 0 0 chmod(@_) || Carp::croak("Can't chmod(@_): $!")
0 0 0 msgsnd($_[0], $_[1], $_[2]) || Carp::croak("Can't msgsnd(@_): $!")
0 0 0 shmread($_[0], $_[1], $_[2], $_[3]) || Carp::croak("Can't shmread(@_): $!")
0 0 0 msgget($_[0], $_[1]) || Carp::croak("Can't msgget(@_): $!")