File Coverage

blib/lib/FASTX/XS.pm
Criterion Covered Total %
statement 12 12 100.0
branch 2 4 50.0
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 19 21 90.4


line stmt bran cond sub pod time code
1             package FASTX::XS;
2              
3 1     1   136681 use 5.010;
  1         4  
4 1     1   8 use strict;
  1         7  
  1         36  
5 1     1   6 use warnings;
  1         2  
  1         227  
6              
7             our $VERSION = '0.0.4';
8              
9             require XSLoader;
10             XSLoader::load('FASTX::XS', $VERSION);
11              
12             sub new {
13 1     1 1 179445 my ($class, $filename) = @_;
14 1 50       6 die "Filename required" unless defined $filename;
15 1 50       21 die "File not found: $filename" unless -e $filename;
16            
17 1         74 return _xs_new($class, $filename);
18             }
19              
20             1;
21              
22             __END__