<commit_before>
package ChipTarget;

=for mainBrief
/**
 * @file ChipTarget.H
 * @brief Perl Class to hold eCMD Targetting information

 * Usage : 
   <pre>
     require ChipTarget;
     my $target = new ChipTarget("pu -p1");
     $target->node(2);
   </pre>


*/

/**
 * @brief Perl Class to hold eCMD Targetting information
 * 
 * Usage : 
   <pre>
     require ChipTarget;
     my $target = new ChipTarget("pu -p1");
     $target->node(2);
   </pre>
*/
=cut


sub new 
{
	my $proto = shift;
	my $class = ref($proto) || $proto;
	my $data = shift;

	if (!$data) 
	{
		$data = "";
	}

	my $self = \$data;

	bless $self, $class;
	return $self;
}

=for functionBrief
  /** 	
   * @brief Set the Cage
   * @param i_cage New Cage Value

   * Usage : $target->cage(3);
  */
  void cage(int i_cage);
=cut
sub cage
{
	my $self = shift;

	if (@_) {  #a set
		if ($$self =~ /-k\w+/) {

			my @halves = split(/-k\w+/, $$self);
			$$self = join("", $halves[0], "-k", $_[0], $halves[1]);

		} 
		else {
			$$self .= " -k".$_[0];
		}<commit_msg>Added constructor documentation<commit_after>
package ChipTarget;

=for mainBrief
/**
 * @file ChipTarget.H
 * @brief Perl Class to hold eCMD Targetting information

 * Usage : 
   <pre>
     require ChipTarget;
     my $target = new ChipTarget("pu -p1");
     $target->node(2);
   </pre>


*/

/**
 * @brief Perl Class to hold eCMD Targetting information
 * 
 * Usage : 
   <pre>
     require ChipTarget;
     my $target = new ChipTarget("pu -p1");
     $target->node(2);
   </pre>
*/
=cut


sub new 
{
	my $proto = shift;
	my $class = ref($proto) || $proto;
	my $data = shift;

	if (!$data) 
	{
		$data = "";
	}

	my $self = \$data;

	bless $self, $class;
	return $self;
}


=for functionBrief
  /**
   * @brief Constructor
   * @param i_target Target string as used on command line
   
   * Usage : $target = new ChipTarget("pu -p3 -c1");
  */
  ChipTarget(const char* i_target);
=cut

=for functionBrief
  /** 	
   * @brief Set the Cage
   * @param i_cage New Cage Value

   * Usage : $target->cage(3);
  */
  void cage(int i_cage);
=cut
sub cage
{
	my $self = shift;

	if (@_) {  #a set
		if ($$self =~ /-k\w+/) {

			my @halves = split(/-k\w+/, $$self);
			$$self = join("", $halves[0], "-k", $_[0], $halves[1]);

		} 
		else {
			$$self .= " -k".$_[0];
		}
{'fraction_non_alphanumeric': 0.18736383442265794, 'fraction_numerical': 0.008714596949891068, 'mean_word_length': 2.521472392638037, 'pattern_counts': {'":': 0, '<': 11, '<?xml version=': 0, '>': 17, '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': '473896', 'n_tokens_mistral': 975, 'n_tokens_neox': 893, 'n_words': 245}