t6/05.object.t @@ -1,12 +1,20 @@ class JavaScript::Writer-0.0.1 { + has $!object; has @!statements; method call($function, @args) { @!statements.push({ + object => $!object, call => $function, args => @args - }) + }); + $!object = undef; + } + + method object($o) { + $!object = $o; + return self } method append($code) { @@ -17,7 +25,10 @@ class JavaScript::Writer-0.0.1 { my $ret = ""; for @!statements -> my %s { if (%s{'call'}) { - # Should use JSON. + if (%s{'object'}) { + $ret ~= %s{'object'} ~ "."; + } + # Should use JSON to build arglist. my $args = %s{'args'}.join(","); $ret ~= %s{'call'} ~ "(\"$args\");"; } lib6/JavaScript/Writer.pm 2e928440836bdcd43646e2c9b42f726927f32c0a Kang-min Liu gugod@gugod.org http://github.com/gugod/javascript-writer/commit/63085b35d58bf460204c751d484eb9c3d4256329 63085b35d58bf460204c751d484eb9c3d4256329 2007-11-22T03:33:52-08:00 2007-11-22T03:33:52-08:00 r18641@GOP (orig r601): gugod | 2007-09-01 15:02:47 +0800 implement the 'call this function on this object' feature. git-svn-id: http://code.handlino.com/svn/perl5/JavaScript-Writer@111 b19cb30a-9f2e-4084-8847-5e1a13269302 17406e6e9729c28051d04440b0e72c19525e10a3 Kang-min Liu gugod@gugod.org