File Coverage

blib/lib/POSIX/RT/Signal.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	10	10	100.0
pod	2	2	100.0
total	45	48	93.7

package POSIX::RT::Signal;
$POSIX::RT::Signal::VERSION = '0.015';
use strict;
use warnings FATAL => 'all';

use Carp qw/croak/;
use POSIX qw//;
use XSLoader;
use Sub::Exporter::Progressive -setup => { exports => [qw/sigwaitinfo sigwait sigqueue allocate_signal deallocate_signal/] };
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__