<commit_before>package Cluster::CCS;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;
require DynaLoader;

@ISA = qw(Exporter DynaLoader);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
our %EXPORT_TAGS = ( 'all' => [qw(

)]);
@EXPORT = qw(
	
);
@EXPORT_OK = (@{$EXPORT_TAGS{'all'}});

our $VERSION = '0.01';

require XSLoader;
XSLoader::load('Cluster::CCS', $VERSION);

sub new {
	my $class = shift;
	my $self = bless { 
		@_
	};
	return $self;
}

1;
__END__

=head1 NAME

Cluster::CCS - Perl wrapper for the cluster configuration API

=head1 SYNOPSIS

  use Cluster::CCS;

  my $ccs = new Cluster::CCS();

  $ccs->fullxpath(1);

  my $ccshandle = $ccs->connect();

  if ($ccshandle < 1) {
    print "Cannot comunicate with libccs\n";
    exit $ccshandle;
  }

  my $rtn;
  my $err;

  $err = $ccs->get($ccshandle, '/cluster/@name', $rtn);

  if ($err != 0) {
    print "Query is not valid\n";
  }
<commit_msg>bindings: improve Cluster::CCS description<commit_after>package Cluster::CCS;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;
require DynaLoader;

@ISA = qw(Exporter DynaLoader);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
our %EXPORT_TAGS = ( 'all' => [qw(

)]);
@EXPORT = qw(
	
);
@EXPORT_OK = (@{$EXPORT_TAGS{'all'}});

our $VERSION = '0.01';

require XSLoader;
XSLoader::load('Cluster::CCS', $VERSION);

sub new {
	my $class = shift;
	my $self = bless { 
		@_
	};
	return $self;
}

1;
__END__

=head1 NAME

Cluster::CCS - Perl wrapper for the Cluster Configuration Service library

=head1 SYNOPSIS

  use Cluster::CCS;

  my $ccs = new Cluster::CCS();

  $ccs->fullxpath(1);

  my $ccshandle = $ccs->connect();

  if ($ccshandle < 1) {
    print "Cannot comunicate with libccs\n";
    exit $ccshandle;
  }

  my $rtn;
  my $err;

  $err = $ccs->get($ccshandle, '/cluster/@name', $rtn);

  if ($err != 0) {
    print "Query is not valid\n";
  }

{'fraction_non_alphanumeric': 0.14971123944913373, 'fraction_numerical': 0.007996446023989337, 'mean_word_length': 3.863930885529158, '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': '5490252', 'n_tokens_mistral': 894, 'n_tokens_neox': 841, 'n_words': 252}