package MyCDBI::Code; use MyCDBI::Item; sub item { my ($self, $item_id, $sub_id) = @_; my ($item) = MyCDBI::Item->search( id => $item_id, subid => $sub_id, ); return $item; }