From 0a326e5dfdfc707c94d6c803dcb14a1e0bd9cccf Mon Sep 17 00:00:00 2001
From: Russ Allbery <rra@stanford.edu>
Date: Tue, 28 Aug 2007 20:31:25 +0000
Subject: Add an accessor function to retrieve the ACL ID.

---
 perl/Wallet/ACL.pm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'perl')

diff --git a/perl/Wallet/ACL.pm b/perl/Wallet/ACL.pm
index 06dd077..5b8dc86 100644
--- a/perl/Wallet/ACL.pm
+++ b/perl/Wallet/ACL.pm
@@ -107,6 +107,12 @@ sub error {
     return $self->{error};
 }
 
+# Returns the ID of an ACL.
+sub id {
+    my ($self) = @_;
+    return $self->{id};
+}
+
 # Record a change to an ACL.  Takes the type of change, the scheme and
 # identifier of the entry, and the trace information (user, host, and time).
 # This function does not commit and does not catch exceptions.  It should
-- 
cgit v1.2.3