t/lib/DBICTest/Schema/ResultSet/Artist.pm

   1 package DBICTest::Schema::ResultSet::Artist;
   2
   3 use Moose;
   4 use Method::Signatures::Simple;
   5 extends 'DBICTest::Schema::ResultSet';
   6
   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
  15 1;