t/lib/Test/Serialize/View/Awful.pm

   1 package Test::Serialize::View::Awful;
   2
   3 use base Catalyst::View;
   4
   5 sub render {
   6   my ($self, $c, $template) = @_;
   7   die "I don't know how to do that!";
   8 }
   9
  10 sub process {
  11   my ($self, $c) = @_;
  12
  13   my $output = eval {
  14     $self->render($c, "blah");
  15   };
  16
  17   if ($@) {
  18     my $error = qq/Couldn't render template. Error: "$@"/;
  19     $c->error($error);
  20     return 0;
  21   }
  22
  23   $c->res->body($output);
  24   return 1;
  25 }
  26
  27 1;