- $self->{INIT} = $args->{INIT};
- $self->{SEARCH} = $args->{SEARCH} || croak "SimpleServer.pm: ERROR: Unspecified search handler";
- $self->{FETCH} = $args->{FETCH} || croak "SimpleServer.pm: ERROR: Unspecified fetch handler";
- $self->{CLOSE} = $args->{CLOSE};
- $self->{PRESENT} = $args->{PRESENT};
+ croak "SimpleServer.pm: ERROR: Unspecified search handler" unless defined($self->{SEARCH});
+ croak "SimpleServer.pm: ERROR: Unspecified fetch handler" unless defined($self->{FETCH});