X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp%2FModel%2FStashMe.pm;fp=t%2Flib%2FTestApp%2FModel%2FStashMe.pm;h=a3569d95d934a9174ef512dd466b77971afe8dd0;hb=75f37967953d7c4558c4e4bfd6525e2afc61fd7c;hp=0000000000000000000000000000000000000000;hpb=6166f03d12382556473156bd939721414a11fcb2;p=catagits%2FCatalyst-Component-ACCEPT_CONTEXT.git

diff --git a/t/lib/TestApp/Model/StashMe.pm b/t/lib/TestApp/Model/StashMe.pm
new file mode 100644
index 0000000..a3569d9
--- /dev/null
+++ b/t/lib/TestApp/Model/StashMe.pm
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+# StashMe.pm 
+# Copyright (c) 2007 Jonathan Rockway <jrockway@cpan.org>
+
+package TestApp::Model::StashMe;
+use strict;
+use warnings;
+use base qw(Catalyst::Component::ACCEPT_CONTEXT Catalyst::Model);
+
+sub test {
+    my $self = shift;
+    $self->context->stash(stashme => $self);
+}
+
+sub foo {
+    return "it worked";
+}
+
+1;