diff options
| -rw-r--r-- | perl/Wallet/ACL/Base.pm (renamed from perl/Wallet/ACL.pm) | 10 | ||||
| -rw-r--r-- | perl/Wallet/ACL/Krb5.pm | 2 | ||||
| -rwxr-xr-x | perl/t/acl.t | 8 |
3 files changed, 10 insertions, 10 deletions
diff --git a/perl/Wallet/ACL.pm b/perl/Wallet/ACL/Base.pm index 5258d85..0670537 100644 --- a/perl/Wallet/ACL.pm +++ b/perl/Wallet/ACL/Base.pm @@ -1,4 +1,4 @@ -# Wallet::ACL -- Parent class for wallet ACL verifiers. +# Wallet::ACL::Base -- Parent class for wallet ACL verifiers. # $Id$ # # Written by Russ Allbery <rra@stanford.edu> @@ -10,7 +10,7 @@ # Modules and declarations ############################################################################## -package Wallet::ACL; +package Wallet::ACL::Base; require 5.006; use strict; @@ -56,12 +56,12 @@ __END__ =head1 NAME -Wallet::ACL - Generic parent class for wallet ACL verifiers +Wallet::ACL::Base - Generic parent class for wallet ACL verifiers =head1 SYNOPSIS package Wallet::ACL::Simple - @ISA = qw(Wallet::ACL); + @ISA = qw(Wallet::ACL::Base); sub check { my ($self, $principal, $acl) = @_; return ($principal eq $acl) ? 1 : 0; @@ -69,7 +69,7 @@ Wallet::ACL - Generic parent class for wallet ACL verifiers =head1 DESCRIPTION -Wallet::ACL is the generic parent class for wallet ACL verifiers. It +Wallet::ACL::Base is the generic parent class for wallet ACL verifiers. It provides default functions and behavior and all ACL verifiers should inherit from it. It is not used directly. diff --git a/perl/Wallet/ACL/Krb5.pm b/perl/Wallet/ACL/Krb5.pm index e8d8921..bc03405 100644 --- a/perl/Wallet/ACL/Krb5.pm +++ b/perl/Wallet/ACL/Krb5.pm @@ -16,7 +16,7 @@ require 5.006; use strict; use vars qw(@ISA $VERSION); -@ISA = qw(Wallet::ACL); +@ISA = qw(Wallet::ACL::Base); # This version should be increased on any code change to this module. Always # use two digits for the minor version with a leading zero if necessary so diff --git a/perl/t/acl.t b/perl/t/acl.t index 7d5f230..5549afb 100755 --- a/perl/t/acl.t +++ b/perl/t/acl.t @@ -5,12 +5,12 @@ use Test::More tests => 13; -use Wallet::ACL; +use Wallet::ACL::Base; use Wallet::ACL::Krb5; -my $verifier = Wallet::ACL->new; -ok (defined $verifier, 'Wallet::ACL creation'); -ok ($verifier->isa ('Wallet::ACL'), ' and class verification'); +my $verifier = Wallet::ACL::Base->new; +ok (defined $verifier, 'Wallet::ACL::Base creation'); +ok ($verifier->isa ('Wallet::ACL::Base'), ' and class verification'); is ($verifier->check ('rra@stanford.edu', 'rra@stanford.edu'), 0, 'Default check declines'); is ($verifier->error, undef, 'No error set'); |