lib/Apache/MVC/View/TT.pm

   1 package Apache::MVC::View::TT;
   2 use Lingua::EN::Inflect;
   3 use Template;
   4 use File::Spec;
   5 use UNIVERSAL::moniker;
   6 use strict;
   7
   8
   9 sub new { bless {}, shift } # Not worth having
  10
  11 sub _tt {
  12     my ($self, $r) = @_;
  13     my $root = $r->config->{template_root};
  14     Template->new({ INCLUDE_PATH => [
  15         $root,
  16         File::Spec->catdir($root, $r->model_class->moniker),
  17         File::Spec->catdir($root, "custom"),
  18         File::Spec->catdir($root, "factory")
  19     ]});
  20 }
  21
  22 sub _args {
  23     my ($self, $r) = @_;
  24     my $class = $r->model_class;
  25     my %args = (
  26         request => $r,
  27         class   => $class,
  28         objects => $r->objects,
  29         base    => $r->config->{uri_base},
  30         config  => $r->config
  31         # ...
  32     );
  33     $args{classmetadata} = {
  34         name => $class,
  35         columns => [ $class->columns ],
  36         colnames => { $class->column_names },
  37         moniker => $class->moniker,
  38         plural  => $class->plural_moniker,
  39         cgi => { $class->to_cgi },
  40         description => $class->description
  41     };
  42
  43     # User-friendliness facility for custom template writers.
  44     if (@{$r->objects} > 1){
  45         $args{$r->model_class->plural_moniker} = $r->objects;
  46     } else {
  47         ($args{$r->model_class->moniker}) = @{$r->objects};
  48     }
  49
  50     # Overrides
  51     %args = (%args, %{$r->{template_args}||{}});
  52     %args;
  53 }
  54
  55 sub process {
  56     my ($self, $r) = @_;
  57     my $template = $self->_tt($r);
  58     my $output;
  59     $template->process($r->template, { $self->_args($r) }, \$output)
  60     || $self->error($r, $template->error);
  61     $r->{ar}->content_type("text/html");
  62     $r->{ar}->headers_out->set("Content-Length" => length $output);
  63     $r->{ar}->send_http_header;
  64     $r->{ar}->print($output);
  65     return 200;
  66 }
  67
  68 sub error {
  69     my ($self, $r, $error) = @_;
  70     $r->{ar}->send_http_header("text/plain");
  71     $r->{ar}->print($error);
  72     exit;
  73 }