File Coverage

blib/lib/Script/Ichigeki.pm
Criterion Covered Total %
statement 13 19 68.4
branch 0 2 0.0
condition n/a
subroutine 5 7 71.4
pod 1 1 100.0
total 19 29 65.5


line stmt bran cond sub pod time code
1             package Script::Ichigeki;
2 1     1   25141 use 5.008_001;
  1         4  
  1         38  
3 1     1   6 use strict;
  1         2  
  1         33  
4 1     1   6 use warnings;
  1         7  
  1         48  
5             our $VERSION = '0.04';
6              
7 1     1   613 use Script::Ichigeki::Hissatsu;
  1         107  
  1         134  
8              
9             sub import {
10 0     0     my $pkg = shift;
11 0           $pkg->hissatsu(@_, in_compilation => 1);
12             }
13              
14             {
15             my $_HISSATSU;
16             sub hissatsu {
17 0 0   0 1   die "Already running!\n" if $_HISSATSU;
18 0           my $pkg = shift;
19              
20 0           $_HISSATSU = Script::Ichigeki::Hissatsu->new(@_);
21 0           $_HISSATSU->execute;
22             }
23              
24             END {
25 1     1   382 undef $_HISSATSU;
26             }
27             }
28              
29             1;
30             __END__