File Coverage

blib/lib/Voo.pm
Criterion Covered Total %
statement 13 14 92.8
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 19 21 90.4


line stmt bran cond sub pod time code
1             package Voo;
2              
3 2     2   77320 use 5.006;
  2         5  
4 2     2   8 use strict;
  2         4  
  2         46  
5 2     2   9 use warnings;
  2         3  
  2         104  
6              
7             our $VERSION = '42.42';
8              
9             sub import {
10 2     2   1106 use Data::Dumper; warn Dumper \@_;
  2     1   12688  
  2         231  
  1         14  
11 1 50       153 if ( my $sub = $_[1] ) {
12 0           $sub->();
13             }
14             }
15              
16             1;
17              
18             __END__