<commit_before># -----------------------------------------------
# DevOps::Cli::Config
# -----------------------------------------------
# Description: 
#   the config command
#
#
# -----------------------------------------------
# Copyright <NAME> 2013
# -----------------------------------------------

package DevOps::Cli::ConfigLocationOption;
use parent "Paf::Cli::Option";
use strict;
1;

sub new {
	my $class=shift;

	my $self=$class->SUPER::new(@_);
	return $self;
}

sub name {
    return "location";
}

sub help {
    return "restrict the following commands to the config specified at the specifed location";
}

sub synopsis {
    return "restrict the following commands to the config specified at the specifed location";
}

sub run {
    my $self=shift;
    my $args=shift;
    my $location=shift @$args || die "no location specified";
    die "$location does not exist", if( ! -d $location );
    $self->{config_location}=$location;
}

sub config_location {
    my $self=shift;
    return $self->{config_location};
}
    
package DevOps::Cli::Config;
use parent "DevOps::Cli::Command";
use DevOps::Cli::ConfigAdd;
use DevOps::Cli::ConfigList;
use strict;<commit_msg>return no error on success<commit_after># -----------------------------------------------
# DevOps::Cli::Config
# -----------------------------------------------
# Description: 
#   the config command
#
#
# -----------------------------------------------
# Copyright <NAME> 2013
# -----------------------------------------------

package DevOps::Cli::ConfigLocationOption;
use parent "Paf::Cli::Option";
use strict;
1;

sub new {
	my $class=shift;

	my $self=$class->SUPER::new(@_);
	return $self;
}

sub name {
    return "location";
}

sub help {
    return "restrict the following commands to the config specified at the specifed location";
}

sub synopsis {
    return "restrict the following commands to the config specified at the specifed location";
}

sub run {
    my $self=shift;
    my $args=shift;
    my $location=shift @$args || die "no location specified";
    die "$location does not exist", if( ! -d $location );
    $self->{config_location}=$location;
    return 0;
}

sub config_location {
    my $self=shift;
    return $self->{config_location};
}
    
package DevOps::Cli::Config;
use parent "DevOps::Cli::Command";
use DevOps::Cli::ConfigAdd;
use DevOps::Cli::ConfigList;
use strict;
{'fraction_non_alphanumeric': 0.2723457826269408, 'fraction_numerical': 0.004616030214015947, 'mean_word_length': 2.124508519003932, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 11, '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': '3057165', 'n_tokens_mistral': 687, 'n_tokens_neox': 660, 'n_words': 201}