File Coverage

blib/lib/Lingua/StanfordCoreNLP.pm

Criterion	Covered	Total	%
statement	31	34	91.1
branch	4	8	50.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	42	49	85.7

package Lingua::StanfordCoreNLP;

use strict;
#use warnings;

our ($JAR_PATH, $JAVA_ARGS);

BEGIN {
	use Config;
	use File::Spec;
	use Env qw($LINGUA_CORENLP_JAR_PATH $LINGUA_CORENLP_VERSION $LINGUA_CORENLP_JAVA_ARGS);

	use Exporter ();
	our @ISA       = qw(Exporter);
	our @EXPORT    = ();
	our $VERSION   = '0.10';
	    $VERSION   = eval $VERSION;

	our $CORENLP_VERSION = defined $LINGUA_CORENLP_VERSION
		? $LINGUA_CORENLP_VERSION
		: '1.3.4';

	$JAVA_ARGS = defined $LINGUA_CORENLP_JAVA_ARGS
		? $LINGUA_CORENLP_JAVA_ARGS
		: '-Xmx2000m';

	my ($mod_path) = __FILE__ =~ /(.*)\.pm/;
	my $pkg_path = defined $LINGUA_CORENLP_JAR_PATH ? $LINGUA_CORENLP_JAR_PATH : $mod_path;
	my @jar_files;

	if ($pkg_path =~ /\*\.jar$/) {
		@jar_files = glob($pkg_path);
	} else {
		@jar_files = map { File::Spec->catfile($pkg_path, $_); } qw(
			stanford-corenlp-$$.jar
			stanford-corenlp-$$-models.jar
			joda-time.jar
			jollyday.jar
			xom.jar
		);
	}
	push @jar_files, File::Spec->catfile($mod_path, 'LinguaSCNLP.jar');

	$JAR_PATH = join($Config{'path_sep'}, @jar_files);
	$JAR_PATH =~ s/\$\$/$CORENLP_VERSION/g;
}

use Inline (
	Java            => 'DATA',
	CLASSPATH       => $JAR_PATH,
	EXTRA_JAVA_ARGS => $JAVA_ARGS,
	AUTOSTUDY       => 1
);

1;

__DATA__