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

package DBICTestMethods::Backcompat::Schema::Foo;

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

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

1;
Commit	Line	Data
0f21885a	1	package DBICTestMethods::Backcompat::Schema::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;