File Coverage

blib/lib/Class/DBI/Template.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package Class::DBI::Template;
use strict;
use warnings;
use Template;
our $VERSION = '0.03';
use base qw/Class::Data::Inheritable Exporter/;
use Class::DBI::Template::Stash;
use Carp qw/cluck croak/;

our @EXPORT = qw/
	template_define
	template_configure
	template_data
	template_render
	template_build_data
/;

__PACKAGE__->mk_classdata("_template_$_") for qw/configure define data/;

sub _template_hash {
	my $item = shift;

	my $classdata = "_template_$item";
	my %data = %{__PACKAGE__->$classdata() || {}};
	if(@_ > 1) {
		my %new = @_;
		foreach(keys %new) { $data{$_} = $new{$_}; }
		__PACKAGE__->$classdata(\%data);
	} elsif(@_ == 1) {
		return $data{shift()};
	} else {
		return %data;
	}
}
sub template_define { shift; _template_hash('define',@_); }
sub template_data { shift; _template_hash('data',@_); }
my %configure_defaults = (
	stash_order		=> $Class::DBI::Template::Stash::default_order,
	stash_preload	=> $Class::DBI::Template::Stash::default_preload,
	stash_cache		=> 1,
);
sub template_configure {
	my $self = shift;

	my $data = __PACKAGE__->_template_configure();
	if(! $data) {
		$data = {%configure_defaults};
		__PACKAGE__->_template_configure($data);
	}
	if(@_ > 1) {
		my %new = @_;
		while(my($var,$val) = each %new) {
			$var =~ s/^\-//;
			$data->{lc($var)} = $val;
		}
		__PACKAGE__->_template_configure($data);
	} elsif(@_ == 1) {
		my $item = lc(shift());
		$item =~ s/^\-//;
		return $data->{$item};
	} else {
		return wantarray ? %{$data} : $data;
	}
}

sub template_render {
	my $self = shift;
	my $which = shift;
	my %args = @_;

	my %vars = ();
	my $tmpl = $self->template_define($which) || $which;

	my @stash_order = Class::DBI::Template::Stash::unfold(
		$self->template_configure('stash_order')
	);
	my %pre = ();
	foreach my $pre (@{$self->template_configure('stash_preload')}) {
		$pre{$pre}++;
		if($pre eq 'columns') {
			foreach($self->columns) { $vars{$_} = $self->get($_); }
		} elsif($pre eq 'template_data') {
			my %new = __PACKAGE__->template_data();
			@vars{keys %new} = values %new;
		} elsif($pre eq 'environment') {
			@vars{keys %ENV} = values %ENV;
		} elsif($pre eq 'arguments') {
			@vars{keys %args} = values %args;
		} else {
			die "Cannot preload $pre\n";
		}
		@stash_order = grep { $_ ne $pre } @stash_order;
	}
	$vars{_PRELOADED} = \%pre;

	my %opts = %{__PACKAGE__->template_configure('template_options') || {}};
	$opts{STASH} = Class::DBI::Template::Stash->new({});

	$vars{_SELF} = $self;
	$vars{_ARGS} = \%args;
	$vars{_CONF} = __PACKAGE__->_template_configure;

	my $out = '';
	eval {
		my $template = Template->new(\%opts);
		if($out = $self->template_configure('output')) {
			$template->process($tmpl, \%vars, \$out) || die $template->error;
			return;
		} else {
			$template->process($tmpl, \%vars, \$out) || die $template->error;
		}
	};
	if($@) {
		croak "Template processing failed: $@";
	}
	if($out) {
		return $out;
	} else {
		die "No output found\n";
	}
}

1;
__END__