Commit | Line | Data |
---|---|---|
0f21885a | 1 | package DBICTestMethods::Namespaces::Schema::Result::Foo; |
2 | ||
3 | use strict; | |
4 | use warnings FATAL => 'all'; | |
5 | use English '-no_match_vars'; | |
6 | ||
7 | sub biz { | |
8 | my ($self) = @_; | |
9 | return 'foo bar biz baz boz noz schnozz'; | |
10 | } | |
11 | ||
795c7cff | 12 | sub boz { |
13 | my ($self) = @_; | |
14 | return 'foo bar biz baz boz noz schnozz'; | |
15 | } | |
16 | ||
0f21885a | 17 | 1; |