Branch Coverage

blib/lib/Alarm/Concurrent.pm
Criterion Covered Total %
branch 3 40 7.5


line true false branch
114 0 0 $_ eq ':OVERLOAD' ? :
116 0 1 if ($override)
150 0 0 unless @Alarm::Concurrent::ALARM_QUEUE
168 0 0 if ($time_remaining <= 0) { }
0 0 elsif ($Alarm::Concurrent::ACTIVE_ALARM == -1 or $time_remaining < $active_time) { }
202 0 0 unless (not defined $code or UNIVERSAL::isa($code, 'CODE'))
213 0 0 if ($Alarm::Concurrent::ACTIVE_ALARM == -1 or $alarm < $time_remaining)
237 0 0 $index < 0 ? :
0 0 if (($index < 0 ? $#Alarm::Concurrent::ALARM_QUEUE + $index : $index) == $Alarm::Concurrent::ACTIVE_ALARM)
252 0 0 if ($time_remaining <= 0) { }
0 0 elsif ($Alarm::Concurrent::ACTIVE_ALARM == -1 or $time_remaining < $active_time) { }
287 0 0 @_ ? :
289 0 0 if ($alarm == 0) { }
299 0 0 if ($Alarm::Concurrent::ACTIVE_ALARM == -1 or $alarm < $time_remaining)
323 0 0 unless (not defined $_[-1] or UNIVERSAL::isa($_[-1], 'CODE'))
327 0 0 if (@_ == 2) { }
331 0 0 unless (defined $$alarm[2])
353 0 0 $index < @Alarm::Concurrent::ALARM_QUEUE && $index > -1 ? :
379 0 1 if defined $SIG{'ALRM'} and $SIG{'ALRM'} == \&_alrm
383 0 1 if ($oldalrm and shift())