File Coverage

blib/lib/Begin.pm
Criterion Covered Total %
statement 18 21 85.7
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod n/a
total 25 29 86.2


line stmt bran cond sub pod time code
1             package Begin;
2              
3             our $VERSION = '0.01';
4              
5 1     1   23695 use strict;
  1         3  
  1         43  
6 1     1   5 use warnings;
  1         2  
  1         32  
7              
8 1     1   1143 use Data::Dumper;
  1         10345  
  1         164  
9              
10              
11             sub import {
12             package main;
13 1     1   10 shift;
14 1     1   7 eval "no strict; no warnings;\n" . join(',', @_);
  1     1   1  
  1         29  
  1         4  
  1         2  
  1         28  
  1         56  
15 1 50       11 if ($@) {
16 0           $@ =~ s/ at \(eval \d*\) line \d*//;
17 0           warn "Begin error: $@";
18 0           exit(1);
19             }
20             }
21              
22             1;
23             __END__