Add an accessor function to retrieve the ACL ID.

1 files changed, 6 insertions, 0 deletions

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