gistfile1.txt

[edward@eddarch StockRoom]$ DBIC_TRACE=1 prove -l t/model_StockDB.t 
t/model_StockDB.t .. 1/? SELECT COUNT( * ) FROM tbl_stock me: 
Use of uninitialized value $_[2] in string eq at /home/edward/perl5/lib/perl5/DBIx/Class/ResultSet.pm line 2097.
Use of uninitialized value $_[2] in string eq at /home/edward/perl5/lib/perl5/DBIx/Class/ResultSet.pm line 2097.
bless( {
  current_page => 1,
  entries_per_page => 10,
  undef => undef
}, 'Data::Page' )
t/model_StockDB.t .. ok   
All tests successful.
Files=1, Tests=1,  1 wallclock secs ( 0.03 usr  0.02 sys +  1.18 cusr  0.06 csys =  1.29 CPU)
Result: PASS