File Coverage

blib/lib/Sig/PackageScoped.pm

Criterion	Covered	Total	%
statement	21	23	91.3
branch	4	8	50.0
condition	2	6	33.3
subroutine	6	7	85.7
pod	2	2	100.0
total	35	46	76.0

package Sig::PackageScoped;

use strict;
use warnings;

our @EXPORT_OK = qw(set_sig unset_sig);

our $VERSION = '0.04';

our %HANDLERS;

sub import
{
    $SIG{__DIE__} = sub { my $package = caller(0);
			  exists $HANDLERS{$package}{__DIE__} ?
			  $HANDLERS{$package}{__DIE__}->(@_) :
			  die @_;
		        };
    $SIG{__WARN__} = sub { my $package = caller(0);
			   exists $HANDLERS{$package}{__WARN__} ?
			   $HANDLERS{$package}{__WARN__}->(@_) :
			   warn @_;
		         };

    return;
}

sub set_sig
{
    my %p = @_;

    my $package = $p{package} || caller(0);

    $HANDLERS{$package}{__DIE__} = $p{__DIE__} if exists $p{__DIE__};
    $HANDLERS{$package}{__WARN__} = $p{__WARN__} if exists $p{__WARN__};

    return;
}

sub unset_sig
{
    my %p = @_;

    my $package = delete $p{package} || caller(0);

    delete @{ $HANDLERS{$package} }{ keys %p };

    return;
}


1;

__END__