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, 
	}
);

diag("no. rows: " . $parts->pager->total_entries);