File Coverage

blib/lib/Test/Mock/Alarm.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	7	7	100.0
pod	3	3	100.0
total	32	33	96.9

package Test::Mock::Alarm;

use strict;
use warnings;

use Exporter;
our @ISA       = qw(Exporter);
our @EXPORT_OK = qw(set_alarm restore_alarm);

BEGIN {
    our $VERSION = '0.13';
    *CORE::GLOBAL::alarm = \&Test::Mock::Alarm::mocked_alarm;
}

my $_alarm;

sub mocked_alarm {
    if ( defined $_alarm && ref($_alarm) eq 'CODE' ) {
        return $_alarm->(shift);
    }
    else {
        return CORE::alarm(shift);
    }
}

sub set_alarm {
    $_alarm = shift;

    return;
}

sub restore_alarm {
    undef $_alarm;

    return;
}

1;

__END__