Merge pull request #7 from mamod/v1.0.0_5

V1.0.0 cleanup

Author: mamod

Dev/bench.pl

@@ -13,68 +13,109 @@
 
 
 
-{ ##settung global functions
+# { ##setting global functions
 
-    my $t = timeit($count, sub{
-        $js->set('test', sub{});
-    });
-    print_results("set global functions", $t);
-}
+#     my $t = timeit($count, sub{
+#         $js->set('test', sub{});
+#     });
+#     print_results("set global functions", $t);
+# }
 
-{ ##getting javascript object
+# { ##getting javascript object
 
-    my $t = timeit($count, sub{
-        $duk->eval_string(qq~
-            function javascriptObject1 (){}
-            javascriptObject1;
-        ~);
+#     my $t = timeit($count, sub{
+#         $duk->eval_string(qq~
+#             function javascriptObject1 (){}
+#             javascriptObject1;
+#         ~);
 
-        my $obj = $duk->to_perl_object(-1);
-        $duk->pop();
-    });
-    print_results("getting objects", $t);
-}
+#         my $obj = $duk->to_perl_object(-1);
+#         $duk->pop();
+#     });
+#     print_results("getting objects", $t);
+# }
 
 { ##object operations
     $duk->eval_string(qq~
         function javascriptObject (){
+            this.test = 9;
             this.callme = function(n){
                 this.test = n;
             }
         }
+
+        javascriptObject.prototype.setfunc = function(fn){
+            this.fn = fn;
+            print(this.fn(9,8));
+        };
+
+        javascriptObject.prototype.testcall = function(a,b){
+            this.fn(a,9);
+            return a+b;
+        };
+
         javascriptObject;
     ~);
     my $obj = $duk->to_perl_object(-1);
     $duk->pop();
 
-    { #calling new on objects
-        my $t = timeit($count, sub{
-            my $o = $obj->new();
-        });
-        print_results("calling new", $t);
-    }
+    # { #calling new on objects
+    #     my $t = timeit($count, sub{
+    #         my $o = $obj->new();
+    #     });
+    #     print_results("calling new", $t);
+    # }
 
-    { #calling function from objects
+    # { #calling function from objects
+    #     my $o = $obj->new();
+    #     my $i = 0;
+    #     my $t = timeit($count, sub{
+    #         $o->callme($i++);
+    #         # print $o->test, "\n";
+    #     });
+    #     print_results("calling function", $t);
+    # }
+
+    { #setting functions
         my $o = $obj->new();
         my $i = 0;
+
+        $o->setfunc($duk->cache( sub {
+            # print Dumper \@_;
+            # print "cool\n";
+
+            # print "cool\n";
+            return 88;
+        }));
+
         my $t = timeit($count, sub{
-            $o->callme($i++);
-            # print $o->test, "\n";
+            # my $n = $o->fn($i++, 7);
+            my $result = $o->testcall(1,3);
+            # print $result, "\n";
         });
-        print_results("calling function", $t);
+        print_results("calling cached function", $t);
     }
 }
 
+my @results;
+
 sub print_results {
     my $name = shift;
     my $t    = shift;
 
     my @result = split('@', timestr($t));
 
-    print "===================================\n";
-    print "$count $name\n";
-    print "===================================\n";
-    print " " . $result[0], "\n";
-    print $result[1], "\n";
-    print "\n\n";
+    my $r = "";
+    $r .= "===================================\n";
+    $r .= "$count $name\n";
+    $r .= "===================================\n";
+    $r .= " " . $result[0] . "\n";
+    $r .= $result[1] . "\n";
+    $r .= "\n\n";
+
+    push @results, $r;
+}
+
+for (@results){
+    print $_;
 }

Dev/jQuery.pl

@@ -22,7 +22,7 @@
     if ($text =~ s/\{(\s?)$/;/){
         print $text;
     }
-    
+
     $text .= "\n";
     ##disable debug methods
     if ($text !~ /duk_debug/){

Dev/parse.pl

@@ -10,11 +10,11 @@
 my @code;
 
 while (<$file>){
-    
+
     if ($_ =~ /^DUK_EXTERNAL_DECL/){
         $_ =~ s/^DUK_EXTERNAL_DECL(\s+?)//;
         $_ =~ s/;(\n)?$//;
-        
+
         if ($_ !~ /duk_context \*ctx/g){
             next;
         }
@@ -73,7 +73,7 @@
         # $perl_function =~s/duk_context \*ctx/SV \*Obj/;
         $perl_function = 'aperl_' . $perl_function;
 
-        
+
         $code .= $code_type . "$perl_function {\n";
         $code .= "\tduk_size_t sz;\n" if $lstring;
 

README.pod

@@ -6,7 +6,7 @@ JavaScript::Duktape - Perl interface to Duktape embeddable javascript engine
 <a href="https://travis-ci.org/mamod/JavaScript-Duktape"><img src="https://travis-ci.org/mamod/JavaScript-Duktape.svg?branch=master"></a>
 
 =head1 SYNOPSIS
-    
+
     use JavaScript::Duktape;
 
     ##create new js context
@@ -28,7 +28,7 @@ JavaScript::Duktape - Perl interface to Duktape embeddable javascript engine
 
 =head1 DESCRIPTION
 
-JavaScript::Duktape implements almost all duktape javascript engine api, the c code is just 
+JavaScript::Duktape implements almost all duktape javascript engine api, the c code is just
 a thin layer that maps duktape api to perl, and all other functions implemented in perl
 it self, so maintaing and contributing to the base code should be easy.
 
@@ -58,7 +58,7 @@ To access vm create new context then call C<vm>
     my $js = JavaScript::Duktape->new();
     my $duk = $js->vm;
 
-    #now you can call Duktape API from perl 
+    #now you can call Duktape API from perl
 
     $duk->push_string('print');
     $duk->eval();
@@ -76,15 +76,15 @@ above but with using C<dump> function to get a glance of stack top
     #push "print" string
     $duk->push_string('print');
     $duk->dump(); #-> [ Duktape (top=1): print ]
-    
+
     #since print is a native function we need to evaluate it
     $duk->eval();
     $duk->dump(); #-> [ Duktape (top=1): function print() {/* native */} ]
 
     #push one argument to print function
     $duk->push_string('hi');
     $duk->dump(); #-> [ Duktape (top=2): function print() {/* native */} hi ]
-    
+
     #now call print function and pass "hi" as one argument
     $duk->call(1);
 
@@ -99,7 +99,7 @@ above but with using C<dump> function to get a glance of stack top
 
 =head1 VM methods
 
-As a general rule all duktape api supported, but I haven't had the chance to test them all, 
+As a general rule all duktape api supported, but I haven't had the chance to test them all,
 so please report any missing or failure api call and I'll try to fix
 
 For the list of duktape engine API please see L<http://duktape.org/api.html>, and here is how
@@ -117,8 +117,8 @@ you can translate duktape api to perl
     # duk_pop(ctx);
 
     #and here is how we can implement it in JavaScript::Duktape
-    
-    $duk->push_c_function(sub { 
+
+    $duk->push_c_function(sub {
         my $duk = shift;
         my $num1 = $duk->get_int(0);
         my $num2 = $duk->get_int(1);
@@ -137,12 +137,12 @@ you can translate duktape api to perl
 As you can see all you need to do is replacing C<duk_> with C<$duk->> and remove C<ctx> from the function call,
 this may sounds crazy but api tests have been generated by copying duktape tests and using search and replace tool :)
 
-Besides duktape api, C<JavaScript::Duktape::Vm> implements the following methods 
+Besides duktape api, C<JavaScript::Duktape::Vm> implements the following methods
 
 =over 4
- 
+
 =item push_function ( code_ref, num_of_args );
- 
+
 an alias to push_c_function
 
 =item push_perl( ... );
@@ -160,7 +160,7 @@ resets duktape stack top
 =back
 
 =head1 AUTHOR
- 
+
 Mamod Mehyar C<< <[email protected]> >>
 
 =head1 LICENSE