File Coverage

blib/lib/Mortal/Kombat.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 12 13 92.3


line stmt bran cond sub pod time code
1             package Mortal::Kombat;
2              
3 1     1   1003 use strict;
  1         2  
  1         59  
4 1     1   7 use vars qw( $VERSION @ISA @EXPORT );
  1         1  
  1         318  
5              
6             require Exporter;
7              
8             @ISA = qw( Exporter );
9             @EXPORT = qw( fatality );
10             $VERSION = '1.00';
11              
12              
13 1     1 0 47 sub fatality (@) { die @_ }
14              
15              
16             package victory;
17              
18 1     1   134 sub flawless { exit }
19              
20              
21             1;
22              
23             __END__