File Coverage

blib/lib/POSIX/RT/Signal.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	11	11	100.0
pod	2	2	100.0
total	49	52	94.2

package POSIX::RT::Signal;
$POSIX::RT::Signal::VERSION = '0.019';
use strict;
use warnings;

use Exporter 'import';
our @EXPORT = qw/sigwaitinfo sigtimedwait sigwait sigqueue allocate_signal deallocate_signal/;
our %EXPORT_TAGS = (all => \@EXPORT);

use Carp qw/croak/;
use POSIX qw//;
use XSLoader;
use Signal::Info;
use threads::shared;

XSLoader::load(__PACKAGE__, __PACKAGE__->VERSION);

my @signals : shared = (defined &POSIX::SIGRTMIN) ?  (POSIX::SIGRTMIN() .. POSIX::SIGRTMAX()) : (POSIX::SIGUSR1(), POSIX::SIGUSR2());

my %allowed = map { ( $_ => 1 ) } @signals;

sub allocate_signal {
	my ($priority) = @_;
	return +($priority ? shift @signals : pop @signals) || croak 'no more signal numbers available';
}

sub deallocate_signal {
	my ($signal) = @_;
	croak 'Signal not from original set' if not $allowed{$signal};
	@signals = sort { $a <=> $b } @signals, $signal;
	return;
}

1;

#ABSTRACT: POSIX Real-time signal handling functions

__END__