Commit | Line | Data |
---|---|---|
d06051f7 | 1 | package TestApp::Model::Foo; |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
6 | use base qw/ Catalyst::Model /; | |
7 | ||
8 | sub model_foo_method { 1 } | |
9 | ||
10 | package TestApp::Model::Foo::Bar; | |
11 | sub model_foo_bar_method_from_foo { 1 } | |
12 | ||
13 | package TestApp::Model::Foo; | |
14 | sub bar { "TestApp::Model::Foo::Bar" } | |
15 | ||
16 | 1; |