File Coverage

blib/lib/Alien/WFDB.pm
Criterion Covered Total %
statement 11 15 73.3
branch 1 4 25.0
condition n/a
subroutine 4 6 66.6
pod 2 3 66.6
total 18 28 64.2


line stmt bran cond sub pod time code
1             package Alien::WFDB;
2             $Alien::WFDB::VERSION = '0.005';
3 1     1   843 use strict;
  1         2  
  1         30  
4 1     1   5 use warnings;
  1         1  
  1         27  
5              
6 1     1   478 use parent 'Alien::Base';
  1         333  
  1         5  
7              
8              
9             sub inline_auto_include {
10 0     0 1 0 [ 'wfdb.h' ];
11             }
12              
13             sub libs {
14 1     1 1 20463 my ($class) = @_;
15 1 50       7 join ' ', (
16             $class->install_type eq 'share' ? ('-L' . File::Spec->catfile($class->dist_dir, qw(lib)) ) : (),
17             '-lwfdb',
18             );
19             }
20              
21             sub Inline {
22 0     0 0   my ($self, $lang) = @_;
23 0 0         return unless $_[-1] eq 'C'; # Inline's error message is good
24              
25 0           my $params = Alien::Base::Inline(@_);
26             }
27              
28             1;
29             # ABSTRACT: Alien package for the WFDB (WaveForm DataBase) library
30              
31             __END__