File Coverage

blib/lib/Signal/StackTrace/CarpLike.pm

Criterion	Covered	Total	%
statement	19	23	82.6
branch	1	4	25.0
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	26	33	78.7

########################################################################
# Signal::StackTrace::CarpLike - run a stack dump on a signal.
########################################################################
########################################################################
# housekeeping
########################################################################

package Signal::StackTrace::CarpLike;

use 5.006;

use strict;

use Carp;
use Config;

use Data::Dumper;

########################################################################
# package variables
########################################################################

our $VERSION = 0.01;

my %known_sigz  = ();

@known_sigz{ split ' ', $Config{ sig_name } } = ();

########################################################################
# install the signal handlers
########################################################################

sub import
{
    # discard this package;
    # remainder of the stack are signal names.

    shift;

    if( @_ )
    {
        if( my @junk = grep { ! exists $known_sigz{ $_ } } @_ )
        {
            croak "Unknown signals: unknown signals @junk";
        }

        # all the signals are known, install them all
        # with the cluck handler.

        @SIG{ @_ } = ( \&Carp::cluck ) x @_;
    }
    else
    {
        $SIG{ USR1 } = \&Carp::cluck;
    }

    return
}

# keep require happy

1

__END__