<commit_before>#!/usr/bin/perl
package perunServicesUtils;
use Exporter;
@ISA = ('Exporter');
@EXPORT = qw(attributesToHash dataToAttributesHashes getAttributeSorting quotaToKb uniqList convertNonAsciiToEscapedUtf8Form);

use strict;
use warnings;
use Getopt::Long qw(:config no_ignore_case);
use feature qw(switch);
<commit_msg>Perl - supress warnings on experimetal features<commit_after>#!/usr/bin/perl
package perunServicesUtils;
use Exporter;
@ISA = ('Exporter');
@EXPORT = qw(attributesToHash dataToAttributesHashes getAttributeSorting quotaToKb uniqList convertNonAsciiToEscapedUtf8Form);

use strict;
use warnings;
use Getopt::Long qw(:config no_ignore_case);
use feature qw(switch);
no if $] >= 5.018, warnings => "experimental"; #supress warnings on experimetal features like "switch"

{'fraction_non_alphanumeric': 0.1018867924528302, 'fraction_numerical': 0.007547169811320755, 'mean_word_length': 8.255813953488373, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 5, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, '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': '5818285', 'n_tokens_mistral': 271, 'n_tokens_neox': 252, 'n_words': 67}