File Coverage

blib/lib/Alien/LIBSVM.pm
Criterion Covered Total %
statement 9 18 50.0
branch 0 2 0.0
condition n/a
subroutine 3 7 42.8
pod 0 4 0.0
total 12 31 38.7


line stmt bran cond sub pod time code
1             package Alien::LIBSVM;
2             $Alien::LIBSVM::VERSION = '0.003';
3 1     1   708 use strict;
  1         2  
  1         30  
4 1     1   4 use warnings;
  1         1  
  1         32  
5              
6 1     1   496 use parent 'Alien::Base';
  1         366  
  1         5  
7              
8             sub Inline {
9 0 0   0 0   return unless $_[-1] eq 'C'; # Inline's error message is good
10 0           my $self = __PACKAGE__->new;
11             +{
12 0           LIBS => $self->libs,
13             INC => $self->cflags,
14             AUTO_INCLUDE => q|
15              
16             #include "svm.h"
17              
18             |
19             };
20             }
21              
22             sub svm_train_path {
23 0     0 0   my ($self) = @_;
24 0           File::Spec->catfile( $self->dist_dir , 'bin', 'svm-train' );
25             }
26              
27             sub svm_predict_path {
28 0     0 0   my ($self) = @_;
29 0           File::Spec->catfile( $self->dist_dir , 'bin', 'svm-predict' );
30             }
31              
32             sub svm_scale_path {
33 0     0 0   my ($self) = @_;
34 0           File::Spec->catfile( $self->dist_dir , 'bin', 'svm-scale' );
35             }
36              
37             1;
38             # ABSTRACT: Alien package for the LIBSVM library
39              
40             __END__