package Recording::Provider;
use base qw(Template::Provider);

my $Template_name;
sub last_template { $Template_name };

sub fetch {
	my $self = shift;
	return( $self->SUPER::fetch($Template_name = shift) );
};

##</code><code>##

my @config = (
	INCLUDE_PATH	=> '/Users/adrianh/Desktop/template/',
);

my $template = Template->new({
	EVAL_PERL => 1,
	LOAD_TEMPLATES => [
		Template::Provider->new(@config),
		Recording::Provider->new(@config, DEFAULT => 'default.t2'),
	],
}) or die "could not make template\n";

##</code><code>##

[% PERL %] print Recording::Provider->last_template [% END %] 
failed to load