Perlito5 - js3 - use exists() method

Author: fglock

perlito5.pl

@@ -1844,13 +1844,13 @@ package Perlito5::AST::Apply;
                    )
                 {
                     $v = Perlito5::AST::Var->new( sigil => '%', namespace => $v->namespace, name => $v->name );
-                    return '(' . $v->emit_javascript3() . ').hasOwnProperty(' . Perlito5::Javascript3::autoquote($arg->{index_exp}, $level) . ')';
+                    return '(' . $v->emit_javascript3() . ').exists(' . Perlito5::Javascript3::autoquote($arg->{index_exp}, $level) . ')';
                 }
-                return '(' . $v->emit_javascript3() . ').hderef().hasOwnProperty(' . Perlito5::Javascript3::autoquote($arg->{index_exp}, $level) . ')';
+                return '(' . $v->emit_javascript3() . ').hderef().exists(' . Perlito5::Javascript3::autoquote($arg->{index_exp}, $level) . ')';
             }
             if ($arg->isa( 'Perlito5::AST::Call' )) {
                 if ( $arg->method eq 'postcircumfix:<{ }>' ) {
-                    return '(' . $arg->invocant->emit_javascript3() . ').hderef().hasOwnProperty(' . Perlito5::Javascript3::autoquote($arg->{arguments}, $level) . ')';
+                    return '(' . $arg->invocant->emit_javascript3() . ').hderef().exists(' . Perlito5::Javascript3::autoquote($arg->{arguments}, $level) . ')';
                 }
             }
         },

src5/lib/Perlito5/Javascript3/Emitter.pm

@@ -465,6 +465,9 @@ function p5Hash(o) {
         }
         return out;
     };
+    this.exists = function(i) {
+        return this._hash_.hasOwnProperty(i);
+    };
     this.hset = function(i, v) {
         if (this._hash_[i] instanceof p5Scalar) {
             this._hash_[i].assign(v);