Yet Another CPAN Grep

DDC-XS ( M/MO/MOOCOW/DDC-XS-0.27.tar.gz, MOOCOW, 2020; MetaCPAN )

DDC-XS/XS/CQFilter.pod ( view source; MetaCPAN )

r.h.in '-vt=^[mb]_' -o QueryFilter '-dn=free' '-dt=Node|Compiler|Options|FilterWithBounds' '-dm=::json|::arg|valueString|SetValueString|SortBounds'
##  + ... then edited!

=pod

=head1 NAME

DDC::XS::

 @ISA=qw(DDC::XS::Object);
 
 # Methods
 $string = $CQFilter->toString();
 $string = $CQFilter->toJson();

 #----------------------------------------------------------------------
 # DDC::XS::CQFSort

DDC-XS ( M/MO/MOOCOW/DDC-XS-0.27.tar.gz, MOOCOW, 2020; MetaCPAN )

DDC-XS/XS/Object.pm ( view source; MetaCPAN )

====================================================================
package DDC::XS::Object;
use JSON;
use Carp qw(carp confess);
use strict;

##======================================================

pts:
##    (
##     trimClassNames => $bool,  ##-- auto-trim class-names?
##     json => $bool,            ##-- for JSON-ification?
##    )
sub toHash {
  my ($obj,%opts) = @_;
  return $obj if (!defi

   = ref($obj);
  $class =~ s/^DDC::(?:XS|PP|Any)::// if ($opts{trimClassNames} || $opts{json}); ##-- use toJson()-style class names
  return {
	  (map {
	    ( $_ => $obj->valToPerl($obj->can("get$_"

DDC-XS ( M/MO/MOOCOW/DDC-XS-0.27.tar.gz, MOOCOW, 2020; MetaCPAN )

DDC-XS/XS/CQCount.pod ( view source; MetaCPAN )

mand-line: h2xspp.perl -prefix 'DDC::XS::' QCount.h.in '-vt=^[mbq_]*' -o QCount '-dn=free' '-dm=::json|Compile|Evaluate' '-dt=Indexator'

=pod

=head1 NAME

DDC::XS::CQCount - XS interface to DDC C++

DDC-XS ( M/MO/MOOCOW/DDC-XS-0.27.tar.gz, MOOCOW, 2020; MetaCPAN )

DDC-XS/XS/CQueryCompiler.pod ( view source; MetaCPAN )

ueryToString();      #-- canonical string for current query
 $string = $compiler->QueryToJson();        #-- json string for current query

=cut

##=====================================================