File Coverage

blib/lib/JavaScript/Any.pm

Criterion	Covered	Total	%
statement	25	27	92.5
branch	5	6	83.3
condition	2	5	40.0
subroutine	8	8	100.0
pod	1	2	50.0
total	41	48	85.4

use 5.008003;
use strict;
use warnings;

package JavaScript::Any;

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.001';

use Exporter::Shiny qw( jseval );

sub _generate_jseval {
	my $me = shift;
	my ($name, $args) = @_;
	return sub {
		my $code = shift;
		my $ctx  = $me->new_context($args or {});
		$ctx->eval($code);
	};
}

my $IMPLEMENTATION;
my @IMPLEMENTATIONS = qw(
	JavaScript::Any::Context::V8
	JavaScript::Any::Context::Duktape
	JavaScript::Any::Context::JE
);

sub new_context {
	my $me   = shift;
	my $args = ref($_[0]) eq 'HASH' ? $_[0] : +{ @_ };

	my $impl = delete($args->{implementation})
		|| ($IMPLEMENTATION ||= $me->implementation);

	# ehhh, should probably load $impl.

	$impl->new($args);
}

sub implementation {
	return $IMPLEMENTATION if defined $IMPLEMENTATION;

	for my $try (@IMPLEMENTATIONS) {
		eval "require $try" or next;
		return $try;
	}

	require Carp;
	Carp::croak("No Javascript implementation available. Please install JavaScript::Duktape or JE");
}

1;

__END__