Dancer::Template::Ctpp2

gistfile1.pl

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

	# in cases of different extensions we need to check
	# samples: template 'index' vs template 'index.txt'
	# template 'index' will be autoconverted to template 'index.tmpl' and
	# template 'index.txt' to template 'index.txt.htm' without this fix.
	# $template =~ s/\.[a-zA-Z0-9]+?$// if !ref($template) and !-f $template;
	$template =~ s/\.\w+?$// if !ref($template) and !-f $template;

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