File Coverage

blib/lib/Dancer/Template/Haml.pm

Criterion	Covered	Total	%
statement	15	22	68.1
branch	0	4	0.0
condition	0	3	0.0
subroutine	5	7	71.4
pod	2	2	100.0
total	22	38	57.8

package Dancer::Template::Haml;

use strict;
use warnings;

use Text::Haml;

use vars '$VERSION';
use base 'Dancer::Template::Abstract';

our $VERSION = '0.01';

my $_engine;

sub init { $_engine = Text::Haml->new }

sub render($$$) {
    my ($self, $template, $tokens) = @_;

	$template =~ s/\.tt$/\.haml/;

    die "'$template' is not a regular file"
      if ref($template) || (!-f $template);

    my $content = q{};
    $content = $_engine->render_file($template, %$tokens)
		or die $_engine->error;
    return $content;
}

1;
__END__