[dbsrgits/DBIx-Class-ResultSet-WithMetaData.git] / t / lib / DBICTest / Schema / ResultSet / Artist.pm

package DBICTest::Schema::ResultSet::Artist;

use Moose;
use MooseX::Method::Signatures;
extends 'DBICTest::Schema::ResultSet';

method with_substr () {
	foreach my $row ($self->all) {
		my $substr = substr($row->name, 0, 3);
		$self->add_row_info(row => $row, info => { substr => $substr });
	}
	return $self;
}

1;
Commit	Line	Data
b51d39c8	1	package DBICTest::Schema::ResultSet::Artist;
	2
	3	use Moose;
46845551	4	use MooseX::Method::Signatures;
b51d39c8	5	extends 'DBICTest::Schema::ResultSet';
b51d39c8	6
46845551	7	method with_substr () {
	8	foreach my $row ($self->all) {
	9	my $substr = substr($row->name, 0, 3);
	10	$self->add_row_info(row => $row, info => { substr => $substr });
	11	}
	12	return $self;
	13	}
	14
b51d39c8	15	1;