File Coverage

blib/lib/Data/JavaScript/LiteObject.pm

Criterion	Covered	Total	%
statement	64	68	94.1
branch	23	26	88.4
condition	5	7	71.4
subroutine	6	6	100.0
pod	0	2	0.0
total	98	109	89.9

package Data::JavaScript::LiteObject;
use strict;
use vars qw($VERSION $JSVER);
$VERSION = '1.04';

sub import{
  no strict 'refs';
  shift;
  $JSVER = shift || 1.0;
  *{"@{[scalar caller()]}::jsodump"} = \&jsodump;
}

sub jsodump {
  my %opts = @_;
  my(@keys, $obj, @objs, $EOL, $EOI, @F);

  unless( $opts{protoName} && $opts{dataRef} ){
    return warn("// Both protoName and dataRef must be supplied");
  }

  ($EOI, $EOL) = $opts{explode} ? ("$/\t")x2 : ('', ' ');

  if( ref($opts{dataRef}) eq "ARRAY" ){
    my $i=0;
    $opts{dataRef} =  {map {$opts{protoName}.$i++=>$_} @{$opts{dataRef}} };
  }
  #NOT elsif
  if( ref($opts{dataRef}) eq "HASH" ){
    if( ref($opts{attributes}) eq "ARRAY" ){
      @keys = @{$opts{attributes}};
    }
    else{
      @keys = sort { $a cmp $b } keys
	%{$opts{dataRef}->{(sort keys %{$opts{dataRef}})[0]}};
    }
  }
  else{
    warn("// Unknown reference type, attributes"); return;
  }

  push @F, "function $opts{protoName} (", join(', ', @keys) ,") {$/\t";
  push @F, map("this.$_ = $_;$EOL", @keys);
  push @F, "}$/";

  foreach $obj ( sort keys %{$opts{dataRef}} ){
    push @F, "$obj = new $opts{protoName}($EOI";
    push @F, join(",$EOL",
		  map(datum($opts{dataRef}->{$obj}->{$_}), @keys) ).$EOL;
    push @F, ");$/";
    push @objs, $obj;
  }

  if( defined($opts{listObjects}) ){
    push @F, "$opts{listObjects} = new Array($EOI",
      join(",$EOL", map("'$_'", @objs)), ");$/";
  }

  if( defined($opts{lineIN}) ){
    local $. = $opts{lineIN}+1;
    @F = split($/, join('', @F));
    foreach ( @F ) {
      $_ .= $/ . '// '. ++$. unless (++$.-$opts{lineIN}) %5;
      $_ .= $/;
    }
    ${$opts{lineOUT}} = $.;
    unshift @F, '// '. ($opts{lineIN}+1) .$/;
  }
  return @F;
}

sub datum {
  local $_ = shift() || '';
  my $val;

  if ( ref eq "ARRAY" ) {
    $val = $JSVER >= 1.2 ?
      "[" . join(',',
		 map /^-?(?:\d+(?:\.\d*)?|\.\d+)$/ ?
		 $_ : do{ s/'/\\'/g; qq('$_') }, @{$_})
	. "]"
    :

      "new Array(" . join(',',
			  map /^-?(?:\d+(?:\.\d*)?|\.\d+)$/ ?
			  $_ : do{ s/'/\\'/g; qq('$_') }, @{$_})
	. ")";

  }
  elsif( $val = $_, $val !~ /^-?(?:\d+(?:\.\d*)?|\.\d+)$/ ){
    s/'/\\'/g;
    $val = qq('$_');
  }

  return $val;
}

1;
__END__