File Coverage

blib/lib/Devel/Mortality.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 26 26 100.0


line stmt bran cond sub pod time code
1             package Devel::Mortality;
2              
3 1     1   19979 use 5.005;
  1         3  
  1         35  
4 1     1   6 use strict;
  1         3  
  1         64  
5              
6             require Exporter;
7             require DynaLoader;
8              
9 1     1   5 use File::Basename qw(dirname);
  1         5  
  1         129  
10 1     1   6 use File::Spec;
  1         3  
  1         24  
11              
12 1     1   4 use vars qw($VERSION @ISA);
  1         2  
  1         209  
13             @ISA = qw(DynaLoader);
14              
15             $VERSION = '0.01';
16              
17             bootstrap Devel::Mortality $VERSION;
18              
19             sub inc_dir {
20 1     1 1 122 my @pm_dir = File::Spec->splitdir(dirname($INC{"Devel/Mortality.pm"}));
21 1         3 pop @pm_dir;
22 1         18 my $inc_dir = File::Spec->catdir(@pm_dir, "auto", "Devel", "Mortality");
23 1         6 return $inc_dir;
24             }
25              
26             1;
27             __END__