File Coverage

blib/lib/Carp/Perror.pm
Criterion Covered Total %
statement 9 16 56.2
branch 0 2 0.0
condition n/a
subroutine 3 5 60.0
pod 2 2 100.0
total 14 25 56.0


line stmt bran cond sub pod time code
1             package Carp::Perror;
2              
3 1     1   25767 use 5.008008;
  1         4  
  1         39  
4 1     1   4 use strict;
  1         2  
  1         33  
5 1     1   12 use warnings;
  1         19  
  1         222  
6              
7             require Exporter;
8              
9             our @ISA = qw(Exporter);
10             our @EXPORT_OK = qw(perror pexit);
11             our $VERSION = '0.02';
12              
13             sub perror
14             {
15 0     0 1   pexit(@_);
16             }
17              
18             sub pexit
19             {
20 0     0 1   my $exitcode = 0;
21 0 0         if ( $_[0] =~ /^[0-9]+$/ )
22             {
23 0           $exitcode = int(shift @_);
24             }
25 0           my $w = join " ", @_;
26 0           print "$w";
27 0           exit $exitcode;
28             }
29              
30              
31             1;
32             __END__