sub new { my ($class, @arg) = @_; $class->_incr_count(); my (@item, $ref, @objref); $sth->execute($company, $_[1]); $sth->bind_columns(undef, \$item[0], \$item[1], etc.. while ($ref = $sth->fetchrow_arrayref()) { $objref[$i] = ( { _item => $item[0] || "", _available => $item[1] || "", _brand => $item[2] || "", etc.. } ); $i++; } return bless \@objref, $class; } # End sub new