Apache2-DirBasedHandler-TT
view release on metacpan or search on metacpan
if (@$uri_args) {
return Apache2::Const::NOT_FOUND;
}
$$args{'vars'}{'blurb'} = qq[this is the index];
return $self->process_template(
$r,
$$args{'tt'},
$$args{'vars'},
qq[blurb.tmpl],
qq[text/plain; charset=utf-8],
);
}
sub super_page {
my $self = shift;
my ($r,$uri_args,$args) = @_;
$$args{'vars'}{'blurb'} = qq[this is \$location/super and all it's contents];
return $self->process_template(
$r,
$$args{'tt'},
$$args{'vars'},
qq[blurb.tmpl],
qq[text/plain; charset=utf-8],
);
}
sub super_dooper_page {
my $self = shift;
my ($r,$uri_args,$args) = @_;
$$args{'vars'}{'blurb'} = qq[this is \$location/super/dooper and all it's contents];
return $self->process_template(
$r,
$$args{'tt'},
$$args{'vars'},
qq[blurb.tmpl],
qq[text/plain; charset=utf-8],
);
}
1;
DESCRIPTION
Apache2::DirBasedHandler::TT, is an subclass of Apache2::DirBasedHandler
with modified to allow easy use of Template Toolkit templates for
content generation.
lib/Apache2/DirBasedHandler/TT.pm view on Meta::CPAN
if (@$uri_args) {
return Apache2::Const::NOT_FOUND;
}
$$args{'vars'}{'blurb'} = qq[this is the index];
return $self->process_template(
$r,
$$args{'tt'},
$$args{'vars'},
qq[blurb.tmpl],
qq[text/plain; charset=utf-8],
);
}
sub super_page {
my $self = shift;
my ($r,$uri_args,$args) = @_;
$$args{'vars'}{'blurb'} = qq[this is \$location/super and all it's contents];
return $self->process_template(
$r,
$$args{'tt'},
$$args{'vars'},
qq[blurb.tmpl],
qq[text/plain; charset=utf-8],
);
}
sub super_dooper_page {
my $self = shift;
my ($r,$uri_args,$args) = @_;
$$args{'vars'}{'blurb'} = qq[this is \$location/super/dooper and all it's contents];
return $self->process_template(
$r,
$$args{'tt'},
$$args{'vars'},
qq[blurb.tmpl],
qq[text/plain; charset=utf-8],
);
}
1;
=head1 DESCRIPTION
Apache2::DirBasedHandler::TT, is an subclass of Apache2::DirBasedHandler with modified
to allow easy use of Template Toolkit templates for content generation.
t/My/Thingy.pm view on Meta::CPAN
if (@$uri_args) {
return Apache2::Const::NOT_FOUND;
}
$$args{'vars'}{'blurb'} = qq[this is the index];
return $self->process_template(
$r,
$$args{'tt'},
$$args{'vars'},
qq[blurb.tmpl],
qq[text/plain; charset=utf-8],
);
}
sub super_page {
my $self = shift;
my ($r,$uri_args,$args) = @_;
$$args{'vars'}{'blurb'} = qq[this is \$location/super and all it's contents];
return $self->process_template(
$r,
$$args{'tt'},
$$args{'vars'},
qq[blurb.tmpl],
qq[text/plain; charset=utf-8],
);
}
sub super_dooper_page {
my $self = shift;
my ($r,$uri_args,$args) = @_;
$$args{'vars'}{'blurb'} = qq[this is \$location/super/dooper and all it's contents];
return $self->process_template(
$r,
$$args{'tt'},
$$args{'vars'},
qq[blurb.tmpl],
qq[text/plain; charset=utf-8],
);
}
1;
( run in 0.256 second using v1.01-cache-2.11-cpan-4d50c553e7e )