File Coverage

blib/lib/Check/UnitCheck.pm
Criterion Covered Total %
statement 14 16 87.5
branch 1 2 50.0
condition n/a
subroutine 4 5 80.0
pod n/a
total 19 23 82.6


line stmt bran cond sub pod time code
1             package Check::UnitCheck;
2              
3 1     1   6478 use strict;
  1         4  
  1         45  
4 1     1   16 use warnings;
  1         3  
  1         34  
5              
6             require DynaLoader;
7 1     1   16411 use AutoLoader;
  1         2749  
  1         6  
8              
9             our @ISA = qw(DynaLoader);
10             our $VERSION = '0.13';
11              
12             bootstrap Check::UnitCheck $VERSION;
13              
14             sub import {
15 3     3   1323 my $pkg = shift;
16 3         13 foreach my $sr (@_) {
17 3 50       23 _explode("$pkg: need a subref")
18             if ref($sr) ne 'CODE';
19             }
20 3         8 foreach my $sr (@_) {
21 3         2295 unitcheckify($sr);
22             }
23             }
24              
25             sub _explode {
26 0     0     require Carp;
27 0           Carp::croak(shift);
28             }
29             1;
30             __END__