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

#[edward@eddarch StockRoom]$ prove -l t/model_StockDB.t 
#t/model_StockDB.t .. 1/? Use of uninitialized value in concatenation (.) or string at t/model_StockDB.t line 15.
## no. rows: 
#t/model_StockDB.t .. ok   
#All tests successful.
#Files=1, Tests=1,  2 wallclock secs ( 0.04 usr  0.01 sys +  1.22 cusr  0.08 csys =  1.35 CPU)
#Result: PASS