File Coverage

blib/lib/EJS/Template/JSAdapter/JavaScript/SpiderMonkey.pm

Criterion	Covered	Total	%
statement	21	62	33.8
branch	1	20	5.0
condition			n/a
subroutine	8	13	61.5
pod	2	2	100.0
total	32	97	32.9

use 5.006;
use strict;
use warnings;

=head1 NAME

EJS::Template::JSAdapter::JavaScript::SpiderMonkey

=cut

package EJS::Template::JSAdapter::JavaScript::SpiderMonkey;
use base 'EJS::Template::JSAdapter';

use EJS::Template::Util qw(clean_text_ref);
use Scalar::Util qw(reftype);

our $ENCODE_UTF8   = 0;
our $SANITIZE_UTF8 = 0;
our $FORCE_UNTAINT = 0;
our $PRESERVE_UTF8 = 0;

=head1 Methods

=head2 new

Creates an adapter object.

=cut

sub new {
    my ($class) = @_;
    eval 'use JavaScript::SpiderMonkey';
    die $@ if $@;
    my $engine = JavaScript::SpiderMonkey->new;
    $engine->init();
    return bless {engine => $engine}, $class;
}

=head2 bind

Implements the bind method.

=cut

sub bind {
    my ($self, $variables) = @_;
    my $engine = $self->engine;

    my $assign_value;
    my $assign_hash;
    my $assign_array;

    $assign_value = sub {
        my ($obj, $parent_path, $name, $source_ref, $in_array) = @_;

        my $reftype = reftype $$source_ref;
        my $path = $parent_path ne '' ? "$parent_path.$name" : $name;

        if ($reftype) {
            if ($reftype eq 'HASH') {
                my $new_obj = $engine->object_by_path($path);
                $assign_hash->($new_obj, $$source_ref, $path);
            } elsif ($reftype eq 'ARRAY') {
                my $new_obj = $engine->array_by_path($path);
                $assign_array->($new_obj, $$source_ref, $path);
            } elsif ($reftype eq 'CODE') {
                $engine->function_set($name, $$source_ref, $obj);
            } elsif ($reftype eq 'SCALAR') {
                $assign_array->($obj, $parent_path, $name, $$source_ref, $in_array);
            } else {
                # ignore?
            }
        } else {
            my $text_ref = clean_text_ref($source_ref, $ENCODE_UTF8, $SANITIZE_UTF8, $FORCE_UNTAINT);

            if ($in_array) {
                $engine->array_set_element($obj, $name, $$text_ref);
            } else {
                if ($parent_path) {
                    $engine->property_by_path($path, $$text_ref);
                } else {
                    JavaScript::SpiderMonkey::JS_DefineProperty(
                        $engine->{context}, $obj, $name, $$text_ref);
                }
            }
        }
    };

    $assign_hash = sub {
        my ($obj, $source, $parent_path) = @_;

        for my $name (keys %$source) {
            $assign_value->($obj, $parent_path, $name, \$source->{$name});
        }
    };

    $assign_array = sub {
        my ($obj, $source, $parent_path) = @_;
        my $len = scalar(@$source);

        for (my $i = 0; $i < $len; $i++) {
            $assign_value->($obj, $parent_path, $i, \$source->[$i], 1);
        }
    };

    $assign_hash->($engine->{global_object}, $variables, '');
    return $engine;
}

sub DESTROY {
    my ($self) = @_;
    $self->{engine}->destroy() if $self->{engine};
    delete $self->{engine};
}

=head1 SEE ALSO

=over 4

=item * L

=item * L

=item * L

=back

=cut

1;