diff options
| -rw-r--r-- | perl/Wallet/ACL.pm | 6 |
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 |