[catagits/Catalyst-Runtime.git] / t / lib / TestApp / Model / Foo.pm

package TestApp::Model::Foo;

use strict;
use warnings;

use base qw/ Catalyst::Model /;

__PACKAGE__->config( 'quux' => 'chunkybacon' );

sub model_foo_method { 1 }

sub model_quux_method { shift->{quux} }

package TestApp::Model::Foo::Bar;
sub model_foo_bar_method_from_foo { 1 }

package TestApp::Model::Foo;
sub bar { "TestApp::Model::Foo::Bar" }

1;
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' );
2ef59958	9
d06051f7	10	sub model_foo_method { 1 }
d06051f7	11
2ef59958	12	sub model_quux_method { shift->{quux} }
2ef59958	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;