gistfile1.txt

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();