59 lines
1.0 KiB
Perl
59 lines
1.0 KiB
Perl
package Lemonldap::NG::Common::Conf::Wrapper;
|
|
|
|
use strict;
|
|
|
|
our $VERSION = '2.0.0';
|
|
|
|
sub TIEHASH {
|
|
my ( $class, $conf, $overrides ) = @_;
|
|
return bless {
|
|
_wrapC => $conf,
|
|
_wrapO => $overrides,
|
|
}, $class;
|
|
}
|
|
|
|
sub FETCH {
|
|
my ( $self, $key ) = @_;
|
|
return (
|
|
exists( $self->{_wrapO}->{$key} )
|
|
? $self->{_wrapO}->{$key}
|
|
: $self->{_wrapC}->{$key}
|
|
);
|
|
}
|
|
|
|
sub STORE {
|
|
my ( $self, $key, $value ) = @_;
|
|
return $self->{_wrapO}->{$key} = $value;
|
|
}
|
|
|
|
sub DELETE {
|
|
my ( $self, $key ) = @_;
|
|
my $res = $self->{_wrapO}->{$key} // $self->{_wrapC}->{$key};
|
|
$self->{_wrapO}->{$key} = undef;
|
|
return $res;
|
|
}
|
|
|
|
sub EXISTS {
|
|
my ( $self, $key ) = @_;
|
|
return (
|
|
exists( $self->{_wrapC}->{$key} )
|
|
or exists( $self->{_wrapO}->{$key} )
|
|
);
|
|
}
|
|
|
|
sub DESTROY {
|
|
my $self = shift;
|
|
delete $self->{_wrapO};
|
|
delete $self->{_wrapC};
|
|
}
|
|
|
|
sub FIRSTKEY {
|
|
return each %{ $_[0]->{_wrapC} };
|
|
}
|
|
|
|
sub NEXTKEY {
|
|
return each %{ $_[0]->{_wrapC} };
|
|
}
|
|
|
|
1;
|