File Coverage

blib/lib/Text/PORE.pm

Criterion	Covered	Total	%
statement	24	31	77.4
branch	4	8	50.0
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	37	48	77.0

package Text::PORE;

use strict;
use warnings;

require Exporter;
use AutoLoader qw(AUTOLOAD);
use Carp;
use Text::PORE::Globals;

@Text::PORE::ISA = qw(Exporter);

$Text::PORE::VERSION = '1.02';


##########################################
# render($object, $template, $file_handle)
##########################################
sub render($$$) {
	my ($obj, $tpl, $target) = @_;
	my @errors = ();
	if (ref($obj) ne 'Text::PORE::Object') {
		push (@errors, "The first parameter must be type of Text::PORE::Object.");
	}
	if (ref($tpl) ne 'Text::PORE::Template') {
		push (@errors, "The second parameter must be type of Text::PORE::Template.");
	}
	if (ref($target) ne 'FileHandle') {
		push (@errors, "The third parameter must be type of FileHandle.");
	}

	if ($#errors >=0) {
		my $error;
		foreach $error (@errors) {
			carp("$error");
		}
		return -1;
	} else {
		$tpl->render($obj, $target);
	}
}

##########################################
# setTemplateRootDir($templateRoot)
##########################################
sub setTemplateRootDir($) {
	my ($templateRootDir) = shift;
	Text::PORE::Globals::setTemplateRootDir($templateRootDir);
}


1;
__END__