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) ); };