File Coverage

blib/lib/Template/Recall.pm

Criterion	Covered	Total	%
statement	68	72	94.4
branch	22	30	73.3
condition	7	15	46.6
subroutine	9	9	100.0
pod	3	5	60.0
total	109	131	83.2

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.18';


sub new {

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

	my ( %h ) = @_;

	# Set default values
	$self->{'is_file_template'} = 0;
	$self->{'template_secpat'} = qr/\[\s*=+\s*\w+\s*=+\s*\]/;		# Section pattern
	$self->{'secpat_delims'} = [ '\[\s*=+\s*', '\s*=+\s*\]' ];	# Section delimiters
	$self->{'val_delims'} = [ '\[\'', '\'\]' ];
	$self->{'trim'} = undef;		# undef=off
    #TODO remove?
	$self->{'stored_secs'} = {};	# Store rendered sections internally


	bless( $self, $class );

	# User defines section pattern
	$self->{'template_secpat'} = qr/$h{'secpat'}/ if defined( $h{'secpat'} );

	# Section: User sets 'no delimiters'
	$self->{'secpat_delims'} = undef
		if defined($h{'secpat_delims'}) and !ref($h{'secpat_delims'});

	# Section: User specifies delimiters
	$self->{'secpat_delims'} = [ @{ $h{'secpat_delims'} } ]
		if defined($h{'secpat_delims'}) and ref($h{'secpat_delims'});


	# User sets 'no delimiters'
	$self->{'val_delims'} = undef if defined($h{'val_delims'}) and !ref($h{'val_delims'});

	# User specifies delimiters
	$self->{'val_delims'} = [ @{ $h{'val_delims'} } ]
		if defined($h{'val_delims'}) and ref($h{'val_delims'});

	# User supplied the template from a string

	if ( defined($h{'template_str'}) ) {
		$self->init_template($h{'template_str'});
		return $self;
	}
    else {
        die if ( not defined($h{'template_path'}) or !-e $h{'template_path'} );
    }

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

	return $self;

} # new()






sub render {

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

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

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

    my $sectemp = $self->{'template_secs'}->{$section};

    #TODO is it faster if the default delim allows for *no* spaces between ID
    return $self->SUPER::render( $sectemp, $hash_ref, $self->{'val_delims'} );

} # render()






# Load the single file template into array of sections

sub init_template_from_file {

	my $self = shift;

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

} # init_file_template()





# Handle template passed by user as string

sub init_template {

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

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

    my %h;
    my $curr = '';

    # top-down + only one 'body' follows section, why this parse hack works
    for (@$sec) {
        next if /^$/;
        if (/$self->{'template_secpat'}/) {
            $curr = $_;
            $curr =~ s/$self->{'secpat_delims'}[0]|$self->{'secpat_delims'}[1]//g;
            $h{$curr} = '';
        }
        else {
            $h{$curr} = $_;
        }
    }

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

}






# 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__