@@ -1,4 +1,4 @@
-JavaScript-Writer version 0.0.1
+JavaScript-Writer version 0.0.8
INSTALLATION
@@ -11,7 +11,7 @@ To install this module, run the following commands:
DEPENDENCIES
-* UNIVERSAL::to_json
+* JSON::Syck
* Class::Accessor::Fast
COPYRIGHT AND LICENCE
README
@@ -3,28 +3,24 @@ package JavaScript::Writer;
use warnings;
use strict;
use v5.8.0;
-use base 'Class::Accessor::Fast';
use overload
'<<' => \&append,
'""' => \&as_string;
-
use JSON::Syck;
-__PACKAGE__->mk_accessors qw(statements);
-
our $VERSION = '0.0.7';
sub new {
my $class = shift;
my $self = bless {}, $class;
- $self->statements([]);
+ $self->{statements} = [];
return $self;
}
sub call {
my ($self, $function, @args) = @_;
- push @{$self->statements},{
+ push @{$self->{statements}},{
object => $self->{object} || undef,
call => $function,
args => \@args,
@@ -36,7 +32,7 @@ sub call {
sub append {
my ($self, $code, @xs) = @_;
- push @{$self->statements}, { code => $code, @xs };
+ push @{$self->{statements}}, { code => $code, @xs };
return $self;
}
@@ -46,7 +42,6 @@ sub object {
return $self;
}
-
sub var {
my ($self, $var, $value) = @_;
my $s = "";
@@ -112,7 +107,7 @@ sub as_string {
my ($self) = @_;
my $ret = "";
- for (@{$self->statements}) {
+ for (@{$self->{statements}}) {
if (my $f = $_->{call}) {
my $delimiter = $_->{delimiter} ||
($_->{end_of_call_chain} ? ";" : ".");
lib/JavaScript/Writer.pm
d45a1d77b6a28184b0d178364858349c23755c94
Kang-min Liu
gugod@gugod.org
http://github.com/gugod/javascript-writer/commit/0ff15aebe2c122cd9e75a18fc87b4a33128a3261
0ff15aebe2c122cd9e75a18fc87b4a33128a3261
2007-11-22T06:14:04-08:00
2007-11-22T06:14:04-08:00
This makes JavaScript::Writer not a sub-class of Class::Accessor::Fast.
git-svn-id: http://code.handlino.com/svn/perl5/JavaScript-Writer@117 b19cb30a-9f2e-4084-8847-5e1a13269302
cd7ae60d655be8c852e02a4189327170a94e8c55
Kang-min Liu
gugod@gugod.org