gistfile1.txt

[edward@eddarch StockRoom]$ prove -l t/model_StockDB.t 
t/model_StockDB.t .. 1/? $VAR1 = bless( {
                 'total_entries' => 0,
                 'current_page' => 1,
                 'entries_per_page' => 10
               }, 'Data::Page' );

use strict;
use warnings;
use Test::More;

BEGIN { use_ok 'StockRoom::Model::StockDB' }

my $schema = StockRoom::Model::StockDB->new;
my $parts = $schema->resultset('TblStock')->search(undef,
{
page => 1,
rows => 10,
}
);

use Data::Dumper::Concise;
warn Dumper($parts->pager);
diag("no. rows: " . $parts->pager->total_entries);
use Data::Dumper;

diag(Dumper($parts->pager));

while(my $part = $parts->next){

diag(Dumper($part->vendorpartno));

}

done_testing();