File Coverage

blib/lib/Acme/Iota.pm
Criterion Covered Total %
statement 13 13 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Acme::Iota;
2 1     1   26131 use strict;
  1         2  
  1         30  
3 1     1   4 use warnings;
  1         2  
  1         26  
4 1     1   4 no strict 'refs';
  1         6  
  1         89  
5              
6             our $VERSION = '0.01';
7              
8             sub import {
9 1     1   6 my $iota = 0;
10 1 100   6   2 *{caller.'::iota'} = sub { (@_ ? $iota = shift : $iota)++ };
  1         41  
  6         1666  
11             }
12              
13             1;
14             __END__