[dbsrgits/DBIx-Class-Schema-Loader.git] / t / lib / DBICTestMethods / Namespaces / Schema / Result / Foo.pm

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