t/lib/TestApp/Model/StashMe.pm

   1 #!/usr/bin/perl\r
   2 # StashMe.pm \r
   3 # Copyright (c) 2007 Jonathan Rockway <jrockway@cpan.org>\r
   4 \r
   5 package TestApp::Model::StashMe;\r
   6 use strict;\r
   7 use warnings;\r
   8 use base qw(Catalyst::Component::ACCEPT_CONTEXT Catalyst::Model);\r
   9 \r
  10 sub test {\r
  11     my $self = shift;\r
  12     $self->context->stash(stashme => $self);\r
  13 }\r
  14 \r
  15 sub foo {\r
  16     return "it worked";\r
  17 }\r
  18 \r
  19 1;\r