Kernel/System/Cache.pm

115     my ( $Type, %Param ) = @_;
122     $Self->{Debug} = $Param{Debug} || 0;
151     my ( $Self, %Param ) = @_;
155         next SETTING if !exists $Param{$Setting};
156         $Self->{$Setting} = $Param{$Setting} ? 1 : 0;
199     my ( $Self, %Param ) = @_;
202         if ( !defined $Param{$Needed} ) {
212     $Param{TTL} //= 60 * 60 * 24 * 20;
215     if ( $Param{Type} !~ m{ \A [a-zA-Z0-9_]+ \z}smx ) {
219                 "Cache Type '$Param{Type}' contains invalid characters, use [a-zA-Z0-9_] only!",
228             Message  => "Set Key:$Param{Key} TTL:$Param{TTL}!",
233     if ( $Self->{CacheInMemory} && ( $Param{CacheInMemory} // 1 ) ) {
234         $Self->{Cache}->{ $Param{Type} }->{ $Param{Key} } = $Param{Value};
240         delete $Self->{Cache}->{ $Param{Type} }->{ $Param{Key} };
244     if ( $Self->{CacheInBackend} && ( $Param{CacheInBackend} // 1 ) ) {
245         return $Self->{CacheObject}->Set(%Param);
251         return $Self->{CacheObject}->Delete(%Param);
283     my ( $Self, %Param ) = @_;
286         if ( !$Param{$Needed} ) {
296     if ( $Self->{CacheInMemory} && ( $Param{CacheInMemory} // 1 ) ) {
297         if ( exists $Self->{Cache}->{ $Param{Type} }->{ $Param{Key} } ) {
298             return $Self->{Cache}->{ $Param{Type} }->{ $Param{Key} };
302     return if ( !$Self->{CacheInBackend} || !( $Param{CacheInBackend} // 1 ) );
305     my $Value = $Self->{CacheObject}->Get(%Param);
309         if ( $Self->{CacheInMemory} && ( $Param{CacheInMemory} // 1 ) ) {
310             $Self->{Cache}->{ $Param{Type} }->{ $Param{Key} } = $Value;
332     my ( $Self, %Param ) = @_;
335         if ( !$Param{$Needed} ) {
348     delete $Self->{Cache}->{ $Param{Type} }->{ $Param{Key} };
351     return $Self->{CacheObject}->Delete(%Param);
389     my ( $Self, %Param ) = @_;
393     if ( $Param{Type} ) {
394         delete $Self->{Cache}->{ $Param{Type} };
396     elsif ( $Param{KeepTypes} ) {
398         @KeepTypeLookup{ @{ $Param{KeepTypes} } } = undef;
410     return $Self->{CacheObject}->CleanUp(%Param);