Commit | Line | Data |
---|---|---|
d06051f7 | 1 | package TestApp::Model::Foo; |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
6 | use base qw/ Catalyst::Model /; | |
7 | ||
2ef59958 | 8 | __PACKAGE__->config( 'quux' => 'chunkybacon' ); |
9 | ||
d06051f7 | 10 | sub model_foo_method { 1 } |
11 | ||
2ef59958 | 12 | sub model_quux_method { shift->{quux} } |
13 | ||
d06051f7 | 14 | package TestApp::Model::Foo::Bar; |
15 | sub model_foo_bar_method_from_foo { 1 } | |
16 | ||
17 | package TestApp::Model::Foo; | |
18 | sub bar { "TestApp::Model::Foo::Bar" } | |
19 | ||
20 | 1; |