File Coverage

blib/lib/Die/Alive.pm
Criterion Covered Total %
statement 13 13 100.0
branch 2 2 100.0
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             #############################################################################
2             ## Name: Alive.pm
3             ## Purpose: Die::Alive
4             ## Author: Graciliano M. P.
5             ## Modified by:
6             ## Created: 2004-02-27
7             ## RCS-ID:
8             ## Copyright: (c) 2004 Graciliano M. P.
9             ## Licence: This program is free software; you can redistribute it and/or
10             ## modify it under the same terms as Perl itself
11             #############################################################################
12            
13             package Die::Alive ;
14 1     1   6320 use 5.006 ;
  1         4  
  1         47  
15            
16 1     1   6 use strict qw(vars);
  1         3  
  1         31  
17            
18 1     1   5 use vars qw($VERSION) ;
  1         6  
  1         119  
19            
20             $VERSION = '0.01' ;
21            
22 1     1   79 sub BEGIN { *CORE::GLOBAL::die = \&DIE_2_WARN ;}
23            
24             sub DIE_2_WARN {
25 2 100   2 0 136 if ( $^S ) { CORE::die(@_) ;}
  1         6  
26 1         10 else { warn(@_) ;}
27             }
28            
29             #######
30             # END #
31             #######
32            
33             1;
34            
35            
36             __END__