my $ro_itiv_hw = new Itiv::Hw; # do any testing on $ro_itiv_hw my ($ra_cols, $ra_hw) = $ro_itiv_hw->all_hw($dbh, $filter); # now test return values #### my $ro_itiv_hw = Itiv::Hw->new; #### my ($ra_cols, $ra_hw) = Itiv::Hw->new->all_hw($dbh, $filter);