File Coverage

blib/lib/JSON/T/SpiderMonkey.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

use 5.010;
use strict;
use warnings;
use utf8;

use JavaScript::SpiderMonkey ();

package JSON::T::SpiderMonkey;

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.104';
our @ISA       = qw( JSON::T );

sub init
{
	my $self = shift;
	my (@args) = @_;

	my $JS = $self->{engine} = JavaScript::SpiderMonkey::->new();

	$JS->init;
	$JS->function_set("return_to_perl", sub {
		$self->_accept_return_value(@_);
	});
	$JS->function_set("print_to_perl", sub {
		print @_;
	});

	$self->SUPER::init(@args);
}

sub engine_eval
{
	my $self = shift;
	my ($code) = @_;

	return $self->{engine}->eval($code);
}

sub parameters
{
	my $self = shift;
	my (%args) = @_;

	for my $k (sort keys %args)
	{
		my $v = $args{$k};
		$v = $v->[1] if ref $v eq 'ARRAY';
		$self->{engine}->property_by_path($k, "$v");
	}
}

1;

__END__