[perl-ldap-checkins] CVS: sasl/lib/Authen SASL.pm,1.1.1.1,1.2

[Graham B. <gb...@us...>]

Update of /cvsroot/perl-ldap/sasl/lib/Authen
In directory usw-pr-cvs1:/tmp/cvs-serv24316/lib/Authen

Modified Files:
	SASL.pm 
Log Message:
Add some tests


Index: SASL.pm
===================================================================
RCS file: /cvsroot/perl-ldap/sasl/lib/Authen/SASL.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- SASL.pm	2002/01/24 12:04:16	1.1.1.1
+++ SASL.pm	2002/01/28 19:52:25	1.2
@@ -5,11 +5,16 @@
 package Authen::SASL;
 
 use strict;
-use vars qw($VERSION);
+use vars qw($VERSION @Plugins);
 use Carp;
 
 $VERSION = "2.00";
 
+@Plugins = qw(
+	Authen::SASL::Cyrus
+	Authen::SASL::Perl
+);
+
 sub new {
   my $pkg = shift;
   my %opt = ((@_ % 2 ? 'mechanism' : ()), @_);
@@ -53,8 +58,7 @@
 sub client_new { # $self, $service, $host, $secflags
   my $self = shift;
 
-  foreach my $plugin (qw(Cyrus Perl)) {
-    my $pkg = __PACKAGE__ . "::$plugin";
+  foreach my $pkg (@Plugins) {
     if (eval "require $pkg") {
       return ($self->{conn} = $pkg->client_new($self, @_));
     }