File Coverage

blib/lib/SigAction/SetCallBack.pm

Criterion	Covered	Total	%
statement	50	62	80.6
branch	6	14	42.8
condition	1	3	33.3
subroutine	12	14	85.7
pod	2	2	100.0
total	71	95	74.7

package SigAction::SetCallBack;

use strict;
use warnings;

our $VERSION = '0.01';

use POSIX qw();

    # sa_mask manager
    $SigAction::SetCallBack::SA_MASK = 'SA_NODEFER';
    sub set_sa_mask {
        my ($class,$new_sa_mask) = @_;
        my $change = 0;
        no strict 'refs';
        if (defined "POSIX::${new_sa_mask}") {
            $SigAction::SetCallBack::SA_MASK = $new_sa_mask;
            $change++;
        }
        use strict 'refs';
        $change;
    }

    # stack callbacks storage
    my $sig_action_table = {};

    # registry callback for signal
    sub sig_registry {
        my ($class,$sig,$func) = @_;
        return 0 unless ($sig and $func);
        my ($package) = caller;
        if (ref $func ne 'CODE') {
            # only exists method for callback
            return 0 unless $package->can($func);
            no strict 'refs';
            $func = \&{$package.'::'.$func};
            use strict 'refs';
        };

        ($sig = uc($sig)) =~ s/^SIG//;
        my $bad_sig = 0;
        no strict 'refs';
        $bad_sig++ unless defined "POSIX::SIG$sig"->();
        use strict 'refs';
        return 0 if $bad_sig;

        unless (exists $sig_action_table->{$sig}) {
            no strict 'refs';
            my $action = POSIX::SigAction->new(
                                       \&_sigaction,
                                       POSIX::SigSet->new(),
                                       "POSIX::${SigAction::SetCallBack::SA_MASK}"->()
            );
            POSIX::sigaction("POSIX::SIG$sig"->(), $action);
            use strict 'refs';
        }

        push @{$sig_action_table->{$sig}->{$package}},$func;

        return 1;
    }

   # action for any signal
   sub _sigaction {
       my ($sig) = @_;
       foreach my $pckg (keys %{$sig_action_table->{$sig}}) {
            map {
                $_->($pckg);
            } @{$sig_action_table->{$sig}->{$pckg}}
       };
   }

1;
__END__