Revision 1fe74e53
Von Moritz Bunkus vor etwa 14 Jahren hinzugefügt
SL/Auth/LDAP.pm | ||
---|---|---|
|
||
use English '-no_match_vars';
|
||
|
||
use Scalar::Util qw(weaken);
|
||
use SL::Auth::Constants qw(:all);
|
||
|
||
use strict;
|
||
... | ... | |
my $self = {};
|
||
|
||
$self->{auth} = shift;
|
||
weaken $self->{auth};
|
||
|
||
bless $self, $type;
|
||
|
Auch abrufbar als: Unified diff
Zirkuläre Referenzen auflösen