Revision 23b83d0e
Von Moritz Bunkus vor etwa 14 Jahren hinzugefügt
| SL/DB/AuthUser.pm | ||
|---|---|---|
|
|
||
|
use strict;
|
||
|
|
||
|
use List::Util qw(first);
|
||
|
|
||
|
use SL::DB::MetaSetup::AuthUser;
|
||
|
use SL::DB::AuthUserGroup;
|
||
|
|
||
| ... | ... | |
|
|
||
|
__PACKAGE__->meta->initialize;
|
||
|
|
||
|
sub get_config_value {
|
||
|
my ($self, $key) = @_;
|
||
|
|
||
|
my $cfg = first { $_->cfg_key eq $key } @{ $self->configs };
|
||
|
return $cfg ? $cfg->cfg_value : undef;
|
||
|
}
|
||
|
|
||
|
1;
|
||
Auch abrufbar als: Unified diff
Convenience: Config-Value aus auth.user_configs über AuthUser-Objekt auslesen