File Coverage

blib/lib/Perl/Unsafe/Signals.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	27	28	96.4

package Perl::Unsafe::Signals;

use strict;
use XSLoader ();

our $VERSION = '0.03';

XSLoader::load 'Perl::Unsafe::Signals', $VERSION;

sub import {
    no strict 'refs';
    *{caller() . '::UNSAFE_SIGNALS'} = *UNSAFE_SIGNALS;
}

sub UNSAFE_SIGNALS (&) {
    my $code = shift;
    my $restore = Perl::Unsafe::Signals::Restore->new;
    $code->();
}

{
    package # helper class, hide from PAUSE indexer
	Perl::Unsafe::Signals::Restore;
    sub new {
	my($class) = @_;
	my $oldflags = Perl::Unsafe::Signals::push_unsafe_flag();
	bless \$oldflags, $class;
    }
    sub DESTROY {
	my $self = shift;
	my $oldflags = $$self;
	Perl::Unsafe::Signals::pop_unsafe_flag($oldflags);
    }
}

1;

__END__