File Coverage

blib/lib/Voo.pm
Criterion Covered Total %
statement 16 17 94.1
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod n/a
total 23 25 92.0


line stmt bran cond sub pod time code
1             package Voo;
2              
3 2     2   59210 use 5.018;
  2         6  
4 2     2   9 use strict;
  2         3  
  2         35  
5 2     2   7 use warnings;
  2         3  
  2         89  
6 2     2   10 use feature 'lexical_subs';
  2         4  
  2         294  
7              
8             our $VERSION = '42.43';
9              
10             sub import {
11 2     2   1103 use Data::Dumper; warn Dumper \@_;
  2     1   11545  
  2         248  
  1         12  
12 1 50       132 if ( my $sub = $_[1] ) {
13 0           $sub->();
14             }
15             }
16              
17             1;
18              
19             __END__