File Coverage

blib/lib/Text/EasyTemplate.pm

Criterion	Covered	Total	%
statement	6	51	11.7
branch	0	16	0.0
condition	0	3	0.0
subroutine	2	6	33.3
pod	2	2	100.0
total	10	78	12.8

package Text::EasyTemplate;

use warnings;
use strict;

our $VERSION = '0.01';
my $BASE = '';

sub new {
	my $proto = shift;
	my ($file) = @_;
	my $class = ref($proto) || $proto;
	my $self = {};
	bless($self,$class);
	$self->{'FILE'} = $file;
	$self->{'HTML'} = $self->_read_file();
	return $self;
}

sub replace {
	my $self = shift;
	my ($hashref) = @_;
	my %hash;
	%hash = %$hashref if ref($hashref) eq 'HASH';
	my $data = $self->{'HTML'};

	while ($data =~ /\[\[IF (.*?)\]\](.*?)\[\[ENDIF\]\]/s) {
		my $token = $1;
		my $else = $2;
		if ($else =~ /\[\[ELSE\]\]/) {
			if ($hash{$token}) {
				$data =~ s/\[\[IF $token\]\](.*?)\[\[ELSE\]\].*?\[\[ENDIF\]\]/$1/s;
			}
			else {
				$data =~ s/\[\[IF $token\]\].*?\[\[ELSE\]\](.*?)\[\[ENDIF\]\]/$1/s;
			}
		}
		else {
			if ($hash{$token}) {
				$data =~ s/\[\[IF $token\]\](.*?)\[\[ENDIF\]\]/$1/s;
			}
			else {
				$data =~ s/\[\[IF $token\]\].*?\[\[ENDIF\]\]//s;
			}
		}
	}

	while ($data =~ /\[\[(.*?)\]\]/g) {
		my $token = $1;
		my $key = $token;
		my $value = $hash{$key};
		if (defined $value) {
			$data =~ s/\[\[$token\]\]/$value/mg;
		}
		else {
			$data =~ s/\[\[$token\]\]//mg;
		}
	}

	return $data;
}

sub _read_file {
	my $self = shift;
	my $file = $self->{'FILE'};
	my $CHUNK_SIZE = 4096;
	my ($chunk, $data);

	open(FILE, "$file") || return $self->_template_not_found($!,$file);
	binmode(FILE) || return $self->_template_not_found($!);
	$data = '';
	while (read(FILE, $chunk, $CHUNK_SIZE)) {
		$data .= $chunk;
	}
	close(FILE) || return $self->_template_not_found($!);
	return $data;
}

sub _template_not_found {
	my $self = shift;
	my ($error) = @_;
	return qq|Error: template not found!\n\t$error ($self->{'FILE'})\n|;
}

1;

__END__