File Coverage

blib/lib/Javascript/Select/Chain/Nested.pm

Criterion	Covered	Total	%
statement	54	56	96.4
branch	5	10	50.0
condition	1	2	50.0
subroutine	14	15	93.3
pod	1	9	11.1
total	75	92	81.5

package Javascript::Select::Chain::Nested;

use 5.006001;
use strict;
use warnings;

use Carp qw/confess/;
use Data::Dumper;
use FileHandle;

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Javascript::Select::Chain ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(

				  ) ],
		   );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ,
		   'selectchain'
		 );

our @EXPORT = qw(

);

our $VERSION = '0.04';


# Preloaded methods go here.


sub header {
  my $fh = shift;
  print $fh "var hide_empty_list=true;\n\n";
}

sub validate {

  my $model = shift;

  exists $model->{listgroupname} or
    confess "listgroupname must be supplied in model";

  exists $model->{data} or
    confess "data must be supplied in model";


}

sub add_list_group {

  my ($fh, $model) = @_;

  my $first_list_item = (keys %{$model->{data}[0][0]})[0];
  $first_list_item = "" unless defined($first_list_item);

  print $fh sprintf 'addListGroup("%s", "%s");',
    $model->{listgroupname},
      $first_list_item;

  print $fh "\n\n";
}

sub quoteary {
  my $ary = shift;
  my $size = shift;

  for my $elt (0..$size-2) {
    $ary->[$elt] = "" unless defined($ary->[$elt]);
    $ary->[$elt] = sprintf '"%s"', $ary->[$elt];
  }

}

my %quoteary = (addList => 5, addOption => 4);

sub addonelist {

  my ($fh, $ary, $func) = @_;

  quoteary($ary, $quoteary{$func});

  print $fh sprintf "$func(%s);\n", join ', ', @$ary;
}

sub addlistary {
  my ($fh, $data, $func) = @_;


  for my $record (@$data) {
    my ($list_name, $list_data) = each %$record;

    for my $list_item (@{$list_data}) {
      addonelist($fh, [ $list_name, @$list_item ], $func);
    }
  }

}

sub addlist {
  my ($fh,$data) = @_;


  for my $d (0 .. $#$data-1) {
    addlistary($fh, $data->[$d], 'addList');
  }

}

sub addoption {
  my ($fh,$data) = @_;


#  warn Dumper($data->[$#$data]);

  addlistary($fh, $data->[$#$data], 'addOption');


}




sub selectchain {
  my ($model, $config) = @_;

  validate $model ;

  my $js = $config->{js} || "_out.js";
  my $jsf = new FileHandle;
  $jsf->open("> $js") or die $!;

#  header($jsf);
  add_list_group($jsf, $model);

  addlist($jsf, $model->{data});
  addoption($jsf, $model->{data});

}

1;
__END__