t/lib/TestApp/View/Test.pm

   1 # Copyright (c) 2007 Jonathan Rockway <jrockway@cpan.org>
   2
   3 package TestApp::View::Test;
   4 use strict;
   5 use warnings;
   6 use base qw(Catalyst::Component::ACCEPT_CONTEXT Catalyst::View);
   7
   8 sub message {
   9     my $self = shift;
  10     return $self->context->stash->{message};
  11 }
  12
  13 1;
  14