import my old svn repo here

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

diff --git a/t/lib/TestApp/Model/Test.pm b/t/lib/TestApp/Model/Test.pm
new file mode 100644 (file)
index 0000000..a870eaf
--- /dev/null
+++ b/t/lib/TestApp/Model/Test.pm
@@ -0,0 +1,26 @@
+# Copyright (c) 2007 Jonathan Rockway <jrockway@cpan.org>
+
+package TestApp::Model::Test;
+use strict;
+use warnings;
+use base qw(Catalyst::Component::ACCEPT_CONTEXT Catalyst::Model);
+
+my $foo = 'bar';
+sub new {
+    my $self = shift;
+    $self = $self->NEXT::new(@_);
+    $foo = $self->context->config->{foo};
+    return $self;
+}
+
+sub message {
+    my $self = shift;
+    return $self->context->stash->{message};
+}
+
+sub foo {
+    return $foo;
+}
+
+1;
+