File Coverage

blib/lib/Perl/Unsafe/Signals.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 20 21 95.2


line stmt bran cond sub pod time code
1             package Perl::Unsafe::Signals;
2              
3 2     2   25200 use strict;
  2         4  
  2         104  
4 2     2   11 use XSLoader ();
  2         4  
  2         107  
5              
6             our $VERSION = '0.02';
7              
8             XSLoader::load 'Perl::Unsafe::Signals', $VERSION;
9              
10             sub import {
11 2     2   16 no strict 'refs';
  2         6  
  2         218  
12 1     1   6 *{caller() . '::UNSAFE_SIGNALS'} = *UNSAFE_SIGNALS;
  1         1761  
13             }
14              
15             sub UNSAFE_SIGNALS (&) {
16 1     1 0 14 my $code = shift;
17 1         5 my $oldflags = push_unsafe_flag();
18 1         4 $code->();
19 1         1111 pop_unsafe_flag( $oldflags );
20             }
21              
22             1;
23              
24             __END__