projects
/
catagits/Catalyst-Component-ACCEPT_CONTEXT.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
have to use a real app in test due to changes in runtime COMPONENT
[catagits/Catalyst-Component-ACCEPT_CONTEXT.git]
/
t
/
lib
/
TestApp
/
Model
/
StashMe.pm
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