File Coverage

blib/lib/Audio/LADSPA/Library.pm
Criterion Covered Total %
statement 6 14 42.8
branch n/a
condition n/a
subroutine 2 7 28.5
pod 2 2 100.0
total 10 23 43.4


line stmt bran cond sub pod time code
1             # Audio::LADSPA perl modules for interfacing with LADSPA plugins
2             # Copyright (C) 2003 Joost Diepenmaat.
3             #
4             # This program is free software; you can redistribute it and/or modify
5             # it under the terms of the GNU General Public License as published by
6             # the Free Software Foundation; either version 2 of the License, or
7             # (at your option) any later version.
8             #
9             # This program is distributed in the hope that it will be useful,
10             # but WITHOUT ANY WARRANTY; without even the implied warranty of
11             # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12             # GNU General Public License for more details.
13             #
14             # You should have received a copy of the GNU General Public License
15             # along with this program; if not, write to the Free Software
16             # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
17             #
18             # See the COPYING file for more information.
19              
20              
21              
22             package Audio::LADSPA::Library;
23 11     11   55 use strict;
  11         19  
  11         549  
24             our $VERSION = "0.021";
25 11     11   55 no strict 'refs';
  11         19  
  11         2006  
26              
27             sub plugins {
28 0     0 1   @{$_[0].'::PLUGINS'};
  0            
29             }
30              
31             sub library_file {
32 0     0 1   ${$_[0].'::LIBRARY_FILE'};
  0            
33             }
34              
35             package Audio::LADSPA::Library::Perl;
36              
37             my @plugins;
38             sub plugins {
39 0     0     @plugins;
40             }
41              
42             sub register {
43 0     0     my $dummy = shift;
44 0           push @plugins,@_;
45             }
46              
47              
48             sub library_file {
49 0     0     qw( 'Audio::LADSPA::Library::Perl' );
50             }
51              
52             1;
53              
54             __END__