Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more

MRAMBERG / Catalyst-Runtime-5.7014 / t / lib / TestApp / Model / Foo.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

              
package TestApp::Model::Foo;
use strict;
use warnings;
use base qw/ Catalyst::Model /;
sub model_foo_method { 1 }
package TestApp::Model::Foo::Bar;
sub model_foo_bar_method_from_foo { 1 }
package TestApp::Model::Foo;
sub bar { "TestApp::Model::Foo::Bar" }
1;