view release on metacpan or  search on metacpan

lib/CGI/Application/Plugin/TT.pm  view on Meta::CPAN

377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
#
sub __tt_template_name {
    my $self    = shift;
    my $uplevel = shift || 0;
 
    # the directory is based on the object's package name
    my $dir = File::Spec->catdir(split(/::/, ref($self)));
 
    # the filename is the method name of the caller plus
    # whatever offset the user asked for
    (caller(2+$uplevel))[3] =~ /([^:]+)$/;
    my $name = $1;
 
    return File::Spec->catfile($dir, $name.'.tmpl');
}
 
##
## Private methods
##
sub _set_object {
    my $self = shift;