File Coverage

blib/lib/Litavis.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Litavis;
2              
3 17     17   4052305 use 5.010;
  17         80  
4 17     17   108 use strict;
  17         25  
  17         535  
5 17     17   108 use warnings;
  17         48  
  17         3058  
6              
7             our $VERSION = '0.02';
8              
9             require XSLoader;
10             XSLoader::load('Litavis', $VERSION);
11              
12             sub include_dir {
13 1     1 1 160112 my $dir = $INC{'Litavis.pm'};
14 1         7 $dir =~ s{Litavis\.pm$}{Litavis/include};
15 1         5 return $dir;
16             }
17              
18             1;
19              
20             __END__