import my old svn repo here

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

diff --git a/t/lib/TestApp/Model/StashMe.pm b/t/lib/TestApp/Model/StashMe.pm
new file mode 100644 (file)
index 0000000..a3569d9
--- /dev/null
+++ b/t/lib/TestApp/Model/StashMe.pm
@@ -0,0 +1,19 @@
+#!/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