From 52ee9b9285f04551cfdcbde2b3b6293a706ca982 Mon Sep 17 00:00:00 2001
From: Russ Allbery <rra@stanford.edu>
Date: Thu, 18 Feb 2010 16:14:51 -0800
Subject: 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.
---
 perl/Wallet/Kadmin/Heimdal.pm | 12 ------------
 1 file changed, 12 deletions(-)

(limited to 'perl/Wallet/Kadmin/Heimdal.pm')

diff --git a/perl/Wallet/Kadmin/Heimdal.pm b/perl/Wallet/Kadmin/Heimdal.pm
index 30b1e52..3047b2f 100644
--- a/perl/Wallet/Kadmin/Heimdal.pm
+++ b/perl/Wallet/Kadmin/Heimdal.pm
@@ -30,18 +30,6 @@ $VERSION = '0.03';
 # 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};
-}
-
 # Add the realm to the end of the principal if no realm is currently present.
 sub canonicalize_principal {
     my ($self, $principal) = @_;
-- 
cgit v1.2.3