requires 'DBIx::Class' => 0.08;
requires 'MooseX::Method::Signatures' => 0.16;
requires 'Data::Alias';
-requires 'DBIx::Class::ResultClass::HashRefInflator;
+requires 'DBIx::Class::ResultClass::HashRefInflator';
build_requires 'Test::More' => 0.7;
return $self->search({}, { rows => $count });
}
-method with_token {
- foreach my $row ($self->all) {
- my $token = $self->tokenify($row->get_column($self->token_col));
- $self->add_row_info(id => $row->id, info => { join('_', 'token', $self->token_col) => $token });
- }
-
- return $self;
-}
-
method _mk_id (HashRef :$row) {
return join('-', map { $row->{$_} } @{$self->id_cols});
}
-
-
-sub tokenify {
- my ($self, $string) = @_;
-
- $string =~ s/\s+$//;
- $string =~ s/[,\.\-\+]//g;
- $string =~ s/^\s+//;
- $string =~ s/ /-/g;
- $string = lc($string);
- return $string;
-}
-
-sub clean_rs {
- my $self = shift;
-
- return $self->result_source->resultset;
-}
1;
#!perl
-use Test::More tests => 2;
+use Test::More tests => 3;
use lib qw(t/lib);
use DBICTest;
use Data::Dumper;
{
my $artist_rs = $schema->resultset('Artist')->order_by(col => 'artistid')->display();
- warn Dumper($artist_rs);
is_deeply($artist_rs, [
{
'artistid' => '1',