#!/usr/bin/perl
use strict;
use warnings;
use Devel::Peek;
use JavaScript;
my $rt = JavaScript::Runtime->new();
my $cx1 = $rt->create_context();
$cx1->bind_class(name => "Foo",
constructor => sub {
my $pkg = shift;
is($pkg, "Foo");
return Foo->new();
}
);
Dump($cx1);