File Coverage

blib/lib/Template/Recall.pm

Criterion	Covered	Total	%
statement	62	66	93.9
branch	17	24	70.8
condition	3	9	33.3
subroutine	9	9	100.0
pod	3	5	60.0
total	94	113	83.1

package Template::Recall;

use 5.008001;
use strict;
use warnings;

use base qw(Template::Recall::Base);

# This version: only single file template or template string
our $VERSION='0.21';


sub new {

	my $class = shift;
	my $self = {};
	bless $self, $class;

	my ( %h ) = @_;

	# Default values
	$self->{'secpat'} = qr/\[\s*=+\s*(\w+)\s*=+\s*\]/;
	$self->{'val_delims'} = [ qr/\['/, qr/'\]/ ];
	$self->{'trim'} = undef;		# undef=off


    if (exists $h{'secpat'} and ref $h{'secpat'}) {
        $self->{'secpat'} = $h{'secpat'};
    }

    if (exists $h{'val_delims'} and ref $h{'val_delims'} eq 'ARRAY') {
        $self->{'val_delims'} = $h{'val_delims'};
    }

	# User supplied the template from a string

	if ( defined($h{'template_str'}) ) {
		$self->init_template($h{'template_str'});
		return $self;
	}

    die 'Path to template not defined or missing'
        unless defined($h{'template_path'}) and -e $h{'template_path'};


    $self->init_template_from_file($h{'template_path'});

	return $self;

} # new()


sub init_template_from_file {

	my ($self, $tpath) = @_;

	my $s;
    open my $fh, $tpath or die "Couldn't open $tpath: $!";
	while(<$fh>) { $s .= $_; }
	close $fh;
    $self->init_template($s);

}

# Handle template passed by user as string
sub init_template {

    my ($self, $template) = @_;

    my $sec = [ split( /($self->{'secpat'})/, $template ) ];

    my %h;
    my $curr = '';

    # Top-down + only one 'body' follows section, why this parse hack works
    for (my $i=0; $i <= $#{$sec} ; $i++) {
        my $el = $$sec[$i];
        next if $el =~ /^$/;
        if ($el =~ /$self->{'secpat'}/) {
            $curr = $1;
            $h{$curr} = '';
            $i++; # Skip next, it's the section name (an artifact)
        }
        else {
            $h{$curr} = $el;
        }
    }

    $self->{'template_secs'} = \%h;

} # init_template()


sub render {

	my ( $self, $section, $hash_ref ) = @_;

	die "Error: no section to render: $section\n" if !defined($section);

    return if !exists $self->{'template_secs'}->{$section};

    return $self->SUPER::render(
        $self->{'template_secs'}->{$section}, $hash_ref, $self->{'val_delims'});

} # render()


# Set trim flags
sub trim {
	my ($self, $flag) = @_;

	# trim() with no params defaults to trimming both ends
	if (!defined $flag) {
		$self->{'trim'} = 'both';
		return;
	}

	# Turn trimming off
	if ($flag =~ /^(off|o)$/i) {
		$self->{'trim'} = undef;
		return;
	}

	# Make sure we get something valid
	if ($flag !~ /^(off|left|right|both|l|r|b|o)$/i) {
		$self->{'trim'} = undef;
		return;
	}

	$self->{'trim'} = $flag;
	return;


} # trim()



1;


__END__