t/lib/DBICTestMethods/Namespaces/Schema/Result/Foo.pm

   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
  12 1;