<commit_before>package App::perlbrew;
use strict;
use 5.8.0;
use File::Spec::Functions qw( catfile );

our $VERSION = "0.08_01";
our $CONF;

my $ROOT         = $ENV{PERLBREW_ROOT} || "$ENV{HOME}/perl5/perlbrew";
my $CONF_FILE    = catfile( $ROOT, 'Conf.pm' );
my $CURRENT_PERL = "$ROOT/perls/current";

sub run_command {
    my ( undef, $opt, $x, @args ) = @_;
    $opt->{log_file} = "$ROOT/build.log";
    my $self = bless $opt, __PACKAGE__;
    $x ||= "help";
    my $s = $self->can("run_command_$x") or die "Unknown command: `$x`. Typo?";
    $self->$s(@args);
}

sub run_command_help {<commit_msg>also expose $CURRENT_PERL<commit_after>package App::perlbrew;
use strict;
use 5.8.0;
use File::Spec::Functions qw( catfile );

our $VERSION = "0.08_01";
our $CONF;

my $ROOT         = $ENV{PERLBREW_ROOT} || "$ENV{HOME}/perl5/perlbrew";
my $CONF_FILE    = catfile( $ROOT, 'Conf.pm' );
my $CURRENT_PERL = "$ROOT/perls/current";

sub get_current_perl {
    return $CURRENT_PERL;
}

sub run_command {
    my ( undef, $opt, $x, @args ) = @_;
    $opt->{log_file} = "$ROOT/build.log";
    my $self = bless $opt, __PACKAGE__;
    $x ||= "help";
    my $s = $self->can("run_command_$x") or die "Unknown command: `$x`. Typo?";
    $self->$s(@args);
}

sub run_command_help {
{'fraction_non_alphanumeric': 0.19826224328593997, 'fraction_numerical': 0.014218009478672985, 'mean_word_length': 3.7992424242424243, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 9, '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': '4397451', 'n_tokens_mistral': 528, 'n_tokens_neox': 510, 'n_words': 116}