package HTML::FormWidgets::Template;

# @(#)$Id: Template.pm 24 2008-03-20 13:57:08Z pjf $

use strict;
use warnings;
use base qw(HTML::FormWidgets);
use English qw(-no_match_vars);
use File::Spec::Functions;
use IO::File;

use version; our $VERSION = qv( sprintf '0.1.%d', q$Rev: 24 $ =~ /\d+/gmx );

sub _render {
   my ($me, $ref) = @_; my ($content, $path, $rdr);

   $path = catfile( $me->templatedir, $me->id.'.tt' );

   return 'Not found '.$path   unless (-f $path);
   return 'Cannot read '.$path unless ($rdr = IO::File->new( $path, q(r) ));

   $content = do { local $RS = undef; <$rdr> }; $rdr->close();

   return $content;
}

1;

# Local Variables:
# mode: perl
# tab-width: 3
# End: