File Coverage

blib/lib/Audio/LibSampleRate.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 26 26 100.0


line stmt bran cond sub pod time code
1             package Audio::LibSampleRate;
2              
3 1     1   12423 use 5.008009;
  1         2  
4 1     1   3 use strict;
  1         1  
  1         13  
5 1     1   5 use warnings;
  1         3  
  1         21  
6 1     1   367 use parent qw/Exporter/;
  1         196  
  1         3  
7              
8             my @constants;
9 1     1   72 BEGIN { @constants = qw/SRC_SINC_BEST_QUALITY SRC_SINC_MEDIUM_QUALITY SRC_SINC_FASTEST SRC_ZERO_ORDER_HOLD SRC_LINEAR/ }
10 1     1   3 use constant +{ map { $constants[$_] => $_ } 0 .. $#constants };
  1         1  
  1         3  
  5         98  
11              
12             our @EXPORT_OK = (qw/src_simple src_get_name src_get_description/, @constants);
13             our @EXPORT = @EXPORT_OK;
14              
15             our $VERSION = '0.002001';
16              
17 1     1   3 use XSLoader;
  1         1  
  1         26  
18             XSLoader::load('Audio::LibSampleRate', $VERSION);
19              
20             1;
21             __END__