import my old svn repo here

[catagits/Catalyst-Component-ACCEPT_CONTEXT.git] / t / lib / TestApp / Model / StashMe.pm

#!/usr/bin/perl\r
# StashMe.pm \r
# Copyright (c) 2007 Jonathan Rockway <jrockway@cpan.org>\r
\r
package TestApp::Model::StashMe;\r
use strict;\r
use warnings;\r
use base qw(Catalyst::Component::ACCEPT_CONTEXT Catalyst::Model);\r
\r
sub test {\r
    my $self = shift;\r
    $self->context->stash(stashme => $self);\r
}\r
\r
sub foo {\r
    return "it worked";\r
}\r
\r
1;\r