diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-01-24 20:32:19 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-01-24 20:32:19 -0600 |
commit | 89c2156e67e3b5857ee5ec1d5650485481dc5419 (patch) | |
tree | e38cd8aeb9eb5ab7d9aa8e757fe96214153ae4df /lib | |
parent | c4170204101fb7e14b1ca3ee750e4bf8f37a14ed (diff) | |
download | ox-view-tt-89c2156e67e3b5857ee5ec1d5650485481dc5419.tar.gz ox-view-tt-89c2156e67e3b5857ee5ec1d5650485481dc5419.zip |
clean up a bit
Diffstat (limited to 'lib')
-rw-r--r-- | lib/OX/View/TT.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/OX/View/TT.pm b/lib/OX/View/TT.pm index 1b59101..e40f8f8 100644 --- a/lib/OX/View/TT.pm +++ b/lib/OX/View/TT.pm @@ -1,7 +1,7 @@ package OX::View::TT; use Moose; -use MooseX::Types::Path::Class; +use MooseX::Types::Path::Class; use Template; our $VERSION = '0.01'; @@ -34,7 +34,7 @@ has 'tt' => ( } ); -sub normalize_web_base { +sub _normalize_web_base { my ($self, $r) = @_; my $base = $r->script_name; $base = '/' . $base unless $base =~ /^\//; @@ -42,9 +42,9 @@ sub normalize_web_base { $base; } -sub build_template_params { +sub _build_template_params { my ($self, $r, $params) = @_; - my $BASE = $self->normalize_web_base( $r ); + my $BASE = $self->_normalize_web_base( $r ); return +{ r => $r, base => $BASE, @@ -58,7 +58,7 @@ sub render { my $out = ''; $self->tt->process( $template, - $self->build_template_params( $r, $params ), + $self->_build_template_params( $r, $params ), \$out ) || confess $self->tt->error; $out; |