<commit_before># Pragmas.
use strict;
use warnings;

# Modules.
use Cwd qw(realpath);
use English qw(-no_match_vars);
use File::Spec::Functions qw(catfile);
use FindBin qw($Bin);
use Test::More 'tests' => 1;

# Test.
eval 'use Test::Pod 1.00';
if ($EVAL_ERROR) {
	plan 'skip_all' => 'Test::Pod 1.00 required for testing POD';
}
pod_file_ok(realpath(catfile($Bin, '..', '..', 'Object.pm')));<commit_msg>Remove obsolete code.<commit_after># Pragmas.
use strict;
use warnings;

# Modules.
use Cwd qw(realpath);
use File::Spec::Functions qw(catfile);
use FindBin qw($Bin);
use Test::More 'tests' => 1;
use Test::Pod;

# Test.
pod_file_ok(realpath(catfile($Bin, '..', '..', 'Object.pm')));
{'fraction_non_alphanumeric': 0.20029239766081872, 'fraction_numerical': 0.011695906432748537, 'mean_word_length': 5.586538461538462, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 6, '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': '7624578', 'n_tokens_mistral': 276, 'n_tokens_neox': 268, 'n_words': 66}