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

   1 package Test::Serialize::View::Simple;
   2
   3 use base qw/Catalyst::View/;
   4
   5 sub process {
   6     my ($self, $c) = @_;
   7
   8     $c->res->body("I am a simple view");
   9     return 1;
  10 }
  11
  12 1;