[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP Constant.pm,1.8,1.9

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

Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP
In directory sc8-pr-cvs1:/tmp/cvs-serv13441/lib/Net/LDAP

Modified Files:
	Constant.pm 
Log Message:
Support :all to export all constants (not recoomended but for backwards complatability)


Index: Constant.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Constant.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- Constant.pm	20 May 2003 14:58:49 -0000	1.8
+++ Constant.pm	2 Jun 2003 15:13:10 -0000	1.9
@@ -4,7 +4,7 @@
 
 package Net::LDAP::Constant;
 
-$VERSION = "0.01";
+$VERSION = "0.02";
 
 use Carp;
 
@@ -15,7 +15,8 @@
   my $callpkg = caller(0);
   _find(@_);
   my $oops;
-  foreach my $sym (@_) {
+  my $all = grep /:all/, @_;
+  foreach my $sym ($all ? keys %const : @_) {
     if (my $sub = $const{$sym}) {
       *{$callpkg . "::$sym"} = $sub;
     }
@@ -30,11 +31,12 @@
 sub _find {
   if (my @need = grep { ! $const{$_} } @_) {
     my %need; @need{@need} = ();
+    my $all = exists $need{':all'};
     seek(DATA,0,0);
     local $/=''; # paragraph mode
     local $_;
     while(<DATA>) {
-      next unless /^=item\s+(LDAP_\S+)\s+\((.*)\)/ and exists $need{$1};
+      next unless /^=item\s+(LDAP_\S+)\s+\((.*)\)/ and ($all or exists $need{$1});
       my ($name, $value) = ($1,$2);
       delete $need{$name};
       $const{$name} = sub () { $value };