diff options
| author | fukachan <fukachan> | 2001-12-24 07:40:55 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-12-24 07:40:55 +0000 |
| commit | 09daa35160a012328aef1fe60017dcc98c9f696b (patch) | |
| tree | d216c1988fbf37534c20e3d9493fceb4fb423a59 /fml/lib/IO/Adapter/LDAP.pm | |
| parent | 0b7a915175bb0130e9916bd764a62f9542f47cdf (diff) | |
| download | fml8-09daa35160a012328aef1fe60017dcc98c9f696b.tar.gz fml8-09daa35160a012328aef1fe60017dcc98c9f696b.tar.bz2 fml8-09daa35160a012328aef1fe60017dcc98c9f696b.zip | |
update documents, comments
Diffstat (limited to 'fml/lib/IO/Adapter/LDAP.pm')
| -rw-r--r-- | fml/lib/IO/Adapter/LDAP.pm | 33 |
1 files changed, 20 insertions, 13 deletions
diff --git a/fml/lib/IO/Adapter/LDAP.pm b/fml/lib/IO/Adapter/LDAP.pm index 099f4f27..aca67a00 100644 --- a/fml/lib/IO/Adapter/LDAP.pm +++ b/fml/lib/IO/Adapter/LDAP.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: LDAP.pm,v 1.9 2001/12/16 14:06:40 fukachan Exp $ +# $FML: LDAP.pm,v 1.10 2001/12/22 09:21:13 fukachan Exp $ # package IO::Adapter::LDAP; @@ -13,18 +13,9 @@ use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD); use Carp; -sub new -{ - my ($self) = @_; - my ($type) = ref($self) || $self; - my $me = {}; - return bless $me, $type; -} - - -##### -##### This is just a dummy yet now. -##### +##### ##### +##### This is just a dummy yet now. ##### +##### ##### =head1 NAME @@ -39,6 +30,22 @@ not yet implemented not yet +=cut + + +# Descriptions: standard constructor +# Arguments: OBJ($self) +# Side Effects: none +# Return Value: OBJ +sub new +{ + my ($self) = @_; + my ($type) = ref($self) || $self; + my $me = {}; + return bless $me, $type; +} + + =head1 AUTHOR Ken'ichi Fukamachi |