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