File Coverage

blib/lib/Alien/LIBSVM.pm

Criterion	Covered	Total	%
statement	17	24	70.8
branch	1	6	16.6
condition			n/a
subroutine	7	11	63.6
pod	7	8	87.5
total	32	49	65.3

package Alien::LIBSVM;
# ABSTRACT: Alien package for the LIBSVM library
$Alien::LIBSVM::VERSION = '0.004';
use strict;
use warnings;

use parent 'Alien::Base';

sub version {
	my ($class) = @_;

	( "" . $class->SUPER::version) =~ s/^\d/$&./gr;
}

sub inline_auto_include {
	return  [ "svm.h" ];
}
sub libs {
	my ($class) = @_;

	join ' ', (
		$class->install_type eq 'share' ? ('-L' . File::Spec->catfile($class->dist_dir, qw(lib)) ) : (),
		'-lsvm',
	);
}

sub cflags {
	my ($class) = @_;
	join ' ', (
		$class->install_type eq 'share' ? ('-I' . File::Spec->catfile($class->dist_dir, qw(include)) ) : (),
	);
}

sub Inline {
	return unless $_[-1] eq 'C'; # Inline's error message is good
	my $params = Alien::Base::Inline(@_);
}

sub svm_train_path {
	my ($self) = @_;
	File::Spec->catfile( $self->dist_dir , 'bin', 'svm-train' );
}

sub svm_predict_path {
	my ($self) = @_;
	File::Spec->catfile( $self->dist_dir , 'bin', 'svm-predict' );
}

sub svm_scale_path {
	my ($self) = @_;
	File::Spec->catfile( $self->dist_dir , 'bin', 'svm-scale' );
}

1;

__END__