File Coverage

blib/lib/HTML/Template/Nest.pm

Criterion	Covered	Total	%
statement	81	81	100.0
branch	34	44	77.2
condition	11	20	55.0
subroutine	16	16	100.0
pod	7	7	100.0
total	149	168	88.6

package HTML::Template::Nest;

use 5.020001;
use strict;
use warnings;
use File::Spec;
use Carp;
use Data::Dumper;
use HTML::Template;


our $VERSION = '0.03';

sub new{
	my ($class,%opts) = @_;
	my $self = {%opts};

	#defaults
    $self->{comment_tokens} = [ '' ] unless $self->{comment_tokens};
	$self->{name_label} = 'NAME' unless $self->{name_label};
    $self->{template_dir} = '' unless defined $self->{template_dir};
	$self->{template_ext} = '.html' unless defined $self->{template_ext};
	$self->{show_labels} = 0 unless defined $self->{show_labels};

	bless $self,$class;
	return $self;
}


sub template_dir{
	my($self,$dir) = @_;
	confess "Expected a scalar directory name but got a ".ref($dir) if $dir && ref($dir);
	$self->{template_dir} = $dir if $dir;
	return $self->{template_dir};
}


sub comment_tokens{
    my ($self,$token1,$token2) = @_;
    if (defined $token1 ){
        $token2 = $token2 || '';
        $self->{'comment_tokens'} = [ $token1, $token2 ];
    }
    return $self->{'comment_tokens'};

}




sub show_labels{
	my ($self,$show) = @_;
	confess "Expected a boolean but got $show" if $show && ! ( $show == 0 || $show == 1 );
	$self->{show_labels} = $show if $show;
	return $self->{show_labels};
}


sub template_ext{
	my ($self,$ext) = @_;
	confess "Expected a scalar extension name but got a ".ref($ext) if defined $ext && ref($ext);
	$self->{template_ext} = $ext if defined $ext;
	return $self->{template_ext};
}


sub name_label{
	my ($self,$label) = @_;
	confess "Expected a scalar name label but got a ".ref($label) if defined $label && ref($label);
	$self->{name_label} = $label if $label;
	return $self->{name_label};
}


sub to_html{
    my ($self,$comp) = @_;

    my $html;
    if ( ref($comp) =~ /array/i ){
        $html = $self->_array_to_html( $comp );
    } elsif( ref( $comp ) =~ /hash/i ){
        $html = $self->_hash_to_html( $comp );
    } else {
		$html = $comp;
    }

    return $html;
}



sub _hash_to_html{
    my ($self,$h) = @_;

    confess "Expected a hashref. Instead got a ".ref($h) unless ref($h) =~ /hash/i;

    my $template_name = $h->{ $self->name_label };

    confess 'Encountered hash with no name_label ("'.$self->name_label.'"): '.Dumper( $h ) unless $template_name;

    my $param = {};

    foreach my $k ( keys %$h ){
        next if $k eq $self->name_label;
        $param->{$k} = $self->to_html( $h->{$k} );
    }

    my $filename = File::Spec->catdir(
        $self->template_dir,
        $template_name.$self->template_ext
    );

    my $temp = HTML::Template->new( filename => $filename );
    $temp->param( $_ => $param->{$_} ) foreach keys %$param;

    my $html = $temp->output;
	if ( $self->show_labels ){

        my $ca = $self->{comment_tokens}->[0];
        my $cb = $self->{comment_tokens}->[1];

		$html = "$ca BEGIN $template_name $cb\n$html\n$ca END $template_name $cb\n";
	}

    return $html;

}




sub _array_to_html{

    my ($self, $arr, $delim) = @_;
    die "Expected an array. Instead got a ".ref($arr) unless ref($arr) =~ /array/i;
    my $html = '';
    foreach my $comp (@$arr){
        $html.= $delim if ($delim && $html);
        $html.= $self->to_html( $comp );
    }
    return $html;

}



1;
__END__