}
sub set_error {
- my ($self, $error, $errorno) =@_;
+ my ($self, $error, $errorno) = @_;
$self->{_error} = $error;
$self->{_errorno} = $errorno if $errorno;
}
sub set_errorno {
- my ($self, $errorno) =@_;
+ my ($self, $errorno) = @_;
$self->{_errorno} = $errorno;
}
sub last_error {
- my ($self, $err) = $@;
+ my ($self, $err) = @_;
$self->{_error} = $err if defined $err;
return $self->{_error};
}
sub last_errorno {
- my ($self, $errno) = $@;
+ my ($self, $errno) = @_;
$self->{_errorno} = $errno if defined $errno;
return $self->{_errorno};
}