Commit | Line | Data |
---|---|---|
75f37967 | 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 |