sub lookup
{
    my  $self             = shift;
    my ($data_type,$item) = @_;

    warn "data_type not provided\n" unless (defined $data_type);
    warn "item not provided\n"      unless (defined $item);

    # ...
}