Lift the error method into Wallet::Kadmin

Take advantage of inheritance by providing the error method in
Wallet::Kadmin rather than separately in both the subclasses.

1 files changed, 0 insertions, 12 deletions

diff --git a/perl/Wallet/Kadmin/MIT.pm b/perl/Wallet/Kadmin/MIT.pm
index a7ccf99..9dc101e 100644
--- a/perl/Wallet/Kadmin/MIT.pm
+++ b/perl/Wallet/Kadmin/MIT.pm
@@ -31,18 +31,6 @@ $VERSION = '0.02';
 # Utility functions
 ##############################################################################
 
-# Set or return the error stashed in the object.
-sub error {
-    my ($self, @error) = @_;
-    if (@error) {
-        my $error = join ('', @error);
-        chomp $error;
-        1 while ($error =~ s/ at \S+ line \d+\.?\z//);
-        $self->{error} = $error;
-    }
-    return $self->{error};
-}
-
 # Set a callback to be called for forked kadmin processes.
 sub fork_callback {
     my ($self, $callback) = @_;