Model::Cowrapper: last_error() and last_errorno() can receive argument

diff --git a/src/newslash_web/lib/Newslash/Model/Cowrapper.pm b/src/newslash_web/lib/Newslash/Model/Cowrapper.pm
index 480b022..1e20bda 100644 (file)
--- a/src/newslash_web/lib/Newslash/Model/Cowrapper.pm
+++ b/src/newslash_web/lib/Newslash/Model/Cowrapper.pm
@@ -263,12 +263,14 @@ sub set_errorno {
 }
 
 sub last_error {
-    my $self = shift;
+    my ($self, $err) = $@;
+    $self->{_error} = $err if defined $err;
     return $self->{_error};
 }
 
 sub last_errorno {
-    my $self = shift;
+    my ($self, $errno) = $@;
+    $self->{_errorno} = $errno if defined $errno;
     return $self->{_errorno};
 }