The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package DBICTestMethods::Namespaces::Schema::Result::Foo;

use strict;
use warnings FATAL => 'all';
use English '-no_match_vars';

sub biz {
    my ($self) = @_;
    return 'foo bar biz baz boz noz schnozz';
}

sub boz {
    my ($self) = @_;
    return 'foo bar biz baz boz noz schnozz';
}

1;