File Coverage

blib/lib/CGI/Lazy/Widget/DomLoader.pm

Criterion	Covered	Total	%
statement	9	29	31.0
branch	0	4	0.0
condition			n/a
subroutine	3	5	60.0
pod	1	2	50.0
total	13	40	32.5

package CGI::Lazy::Widget::DomLoader;

use strict;

use base qw(CGI::Lazy::Widget);
use JSON;

#----------------------------------------------------------------------------------------
sub new {
	my $class = shift;
	my $q = shift;
	my $inputvars = shift;

	my $vars = {};

	foreach (keys %{$inputvars->{lookups}}) {
		$vars->{lookups}->{$_} = $_;
		$vars->{lookups}->{$_}->{preload} = 1;
	}

	$vars->{raw} = $inputvars->{raw};

        my $widgetID = $vars->{id};
	return bless {_q => $q, _vars => $vars, _widgetID => $widgetID}, $class;
}

#----------------------------------------------------------------------------------------
sub output {
	my $self = shift;

	my $rawObjectJs;

        foreach my $rawvar (keys %{$self->vars->{raw};}) {
		$rawObjectJs .= "var $rawvar = JSON.parse('".to_json($self->vars->{raw}->{$rawvar})."');\n";
        }

        $rawObjectJs = $self->q->jswrap($rawObjectJs) if $rawObjectJs;

	my $output = $self->preloadLookup;
	$output .= $rawObjectJs if $rawObjectJs;

	return $output;
}

1

__END__