<commit_before># --
# Cache.t - Cache tests
# Copyright (C) 2001-2012 OTRS AG, http://otrs.org/
# --
# $Id: Cache.t,v 1.25 2012-06-26 13:57:55 mg Exp $
# --
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
# the enclosed file COPYING for license information (AGPL). If you
# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
# --

use strict;
use warnings;
use utf8;

use vars qw($Self);

use Data::Dumper;

use Kernel::System::Cache;

my $ConfigObject = Kernel::Config->new();

MODULE:
for my $Module qw(FileStorable FileRaw) {

    $ConfigObject->Set(
        Key   => 'Cache::Module',
        Value => "Kernel::System::Cache::$Module",
    );

    for my $SubdirLevels ( 0 .. 3 ) {

        $ConfigObject->Set(
            Key   => 'Cache::SubdirLevels',
            Value => $SubdirLevels,
        );

        my $CacheObject = Kernel::System::Cache->new(
            %{$Self},
            ConfigObject => $ConfigObject,
        );

        next MODULE if !$CacheObject;
<commit_msg>Fix depreciation warning on newer perls<commit_after># --
# Cache.t - Cache tests
# Copyright (C) 2001-2012 OTRS AG, http://otrs.org/
# --
# $Id: Cache.t,v 1.26 2012-07-23 21:24:50 mb Exp $
# --
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
# the enclosed file COPYING for license information (AGPL). If you
# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
# --

use strict;
use warnings;
use utf8;

use vars qw($Self);

use Data::Dumper;

use Kernel::System::Cache;

my $ConfigObject = Kernel::Config->new();

MODULE:
for my $Module (qw(FileStorable FileRaw)) {

    $ConfigObject->Set(
        Key   => 'Cache::Module',
        Value => "Kernel::System::Cache::$Module",
    );

    for my $SubdirLevels ( 0 .. 3 ) {

        $ConfigObject->Set(
            Key   => 'Cache::SubdirLevels',
            Value => $SubdirLevels,
        );

        my $CacheObject = Kernel::System::Cache->new(
            %{$Self},
            ConfigObject => $ConfigObject,
        );

        next MODULE if !$CacheObject;

{'fraction_non_alphanumeric': 0.15206929740134745, 'fraction_numerical': 0.026948989412897015, 'mean_word_length': 2.5844827586206898, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 21, 'https://': 0, 'lorem ipsum': 0, 'www.': 2, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '5246359', 'n_tokens_mistral': 741, 'n_tokens_neox': 678, 'n_words': 187}