File Coverage

blib/lib/Alien/SWIProlog.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	28	28	100.0

package Alien::SWIProlog;
# ABSTRACT: Alien package for the SWI-Prolog Prolog interpreter
$Alien::SWIProlog::VERSION = '0.002';
use strict;
use warnings;

use base qw(Alien::Base);
use Role::Tiny::With qw( with );
use Class::Method::Modifiers;
use Alien::SWIProlog::Util;
use Env qw(
	$SWI_HOME_DIR
);

with 'Alien::Role::Dino';

before import => sub {
	my $class = shift;

	$SWI_HOME_DIR = $class->runtime_prop->{home};
	my @swi_lib_dirs = $class->rpath;
	require DynaLoader;
	unshift @DynaLoader::dl_library_path, @swi_lib_dirs;
	my ($dlfile) = DynaLoader::dl_findfile('-lswipl');
	DynaLoader::dl_load_file($dlfile);
};

1;

__END__