Result:
found more than 421 distributions - search limited to the first 2001 files matching your query
( run in 2.497 )
App-Codit
view release on metacpan or search on metacpan
lib/App/Codit/CodeTextManager.pm view on Meta::CPAN
-logcall => ['log', $self],
-modifiedcall => ['Modified', $self],
-saveimage => $ext->getArt('document-save', 16),
-scrollbars => 'osoe',
-width => 8,
)->pack(-expand => 1, -fill => 'both');
$self->CWidg($text);
my $xt = $text->Subwidget('XText');
$xt->bind('<Control-f>', sub { $ext->cmdExecute('doc_find') });
$xt->bind('<Control-r>', sub { $ext->cmdExecute('doc_replace') });
$self->{NAME} = '';
App-CompleteCLIs
view release on metacpan or search on metacpan
"Data::Sah::Compiler::perl::TH::hash" : "0.914",
"Data::Sah::Compiler::perl::TH::int" : "0.914",
"Data::Sah::Compiler::perl::TH::obj" : "0.914",
"Data::Sah::Compiler::perl::TH::re" : "0.914",
"Data::Sah::Compiler::perl::TH::str" : "0.914",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"Data::Sah::Filter::perl::Perl::normalize_perl_modname" : "0",
"Log::ger" : "0.038",
"Perinci::CmdLine::Any" : "0.154",
"Perinci::CmdLine::Lite" : "1.924",
App-Context
view release on metacpan or search on metacpan
lib/App/perlstyle.pod view on Meta::CPAN
=item * vim
.vimrc:
-------
set expandtab " replaces any tab keypress with the appropriate number of spaces
set tabstop=4 " sets tabs to 4 spaces
=back
=head2 Line Lengths
App-CrockfordBase32Utils
view release on metacpan or search on metacpan
"Convert::Base32::Crockford" : "0",
"Data::Sah::Compiler::perl::TH::array" : "0.914",
"Data::Sah::Compiler::perl::TH::bool" : "0.914",
"Data::Sah::Compiler::perl::TH::int" : "0.914",
"Data::Sah::Compiler::perl::TH::str" : "0.914",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"Encode::Base32::Crockford" : "0",
"Exporter" : "5.57",
"Log::ger" : "0.038",
"Math::Random::Secure" : "0",
App-DBBrowser
view release on metacpan or search on metacpan
lib/App/DBBrowser/Options/Defaults.pm view on Meta::CPAN
binary_filter => 0,
binary_string => 'BNRY',
color => 0,
col_trim_threshold => 30,
expanded_line_spacing => 1,
expanded_max_width => 0,
# mouse => 0,
pad_row_edges => 0,
progress_bar => 60_000,
search => 1,
squash_spaces => 0,
tab_width => 2,
table_expand => 1, # expand_table_rows ##
trunc_fract_first => 1,
undef => '',
},
insert => {
file_encoding => 'UTF-8',
App-DH
view release on metacpan or search on metacpan
perlcritic.rc view on Meta::CPAN
[ValuesAndExpressions::RequireUpperCaseHeredocTerminator]
[ValuesAndExpressions::RestrictLongStrings]
[ValuesAndExpressions::UnexpandedSpecialLiteral]
[Variables::ProhibitAugmentedAssignmentInDeclaration]
[Variables::ProhibitConditionalDeclarations]
App-DHCPClientUtils
view release on metacpan or search on metacpan
scripts/multi-homed-routing.pl view on Meta::CPAN
#!/usr/bin/env perl
# vim: tabstop=4 shiftwidth=4 softtabstop=4 expandtab:
use 5.014;
use strict;
use warnings;
scripts/multi-homed-routing.pl view on Meta::CPAN
sub routing_rules($$$)
{
my ($interfaces, $default_policy, $single_policy_default_interface) = @_;
my $config = {
INTERPOLATE => 1, # expand "$var" in plain text
EVAL_PERL => 1, # evaluate Perl code blocks
PRE_CHOMP => 0,
POST_CHOMP => 1 # CHOMP_GREEDY,
};
# create Template object
my $tt = Template->new($config);
my $template = <<END_OF_FILE
#!/bin/bash
# vim: tabstop=4 shiftwidth=4 softtabstop=4 expandtab:
# This script is auto-generated output of command:
# \\\$ [% cmd_line %]
App-DNS-Zonewalk
view release on metacpan or search on metacpan
bin/zonewalk view on Meta::CPAN
$start_zone .= '.in-addr.arpa';
}
# check for IPv6 address as start zone, build reverse zone
elsif ( Net::DNS::Resolver::Base::_ip_is_ipv6($start_zone) ) {
# this simple algo works only for fully expanded IPv6 addresses
$start_zone =~ s/://g;
my @octets = split( //, $start_zone );
$start_zone = join( '.', reverse @octets );
$start_zone .= '.ip6.arpa';
}
App-DataDirUtils
view release on metacpan or search on metacpan
"requires" : {
"Cwd" : "0",
"Data::Sah::Compiler::perl::TH::array" : "0.910",
"Data::Sah::Compiler::perl::TH::bool" : "0.910",
"Data::Sah::Compiler::perl::TH::str" : "0.910",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"File::Basename" : "0",
"File::Find" : "0",
"Log::ger" : "0.038",
"Perinci::CmdLine::Any" : "0.152",
App-Dest
view release on metacpan or search on metacpan
lib/App/Dest.pm view on Meta::CPAN
}
catch ($e) {
die "Failed to fully make $path; check permissions or existing files\n";
}
$self->expand($path);
return 0;
}
sub expand {
my ( $self, $path ) = @_;
print join( ' ', map { <"$path/$_*"> } qw( deploy verify revert ) ), "\n";
return 0;
lib/App/Dest.pm view on Meta::CPAN
dest watches # returns a list of watched directories
dest putwatch FILE # set watch list to be what's in a file
dest writewatch # creates watch file in project root directory
dest make NAME [EXT] # create a named template set (set of 3 files)
dest expand NAME # dump a list of the template set (set of 3 files)
dest list [FILTER] # list all actions in all watches
dest prereqs [FILTER] # like "list" but include report of prereqs
dest status # check status of tracked directories
dest diff [NAME] # display a diff of any modified actions
lib/App/Dest.pm view on Meta::CPAN
And optionally, you can include any date/time format supported by L<POSIX>
C<strftime>.
dest make db/%s_action sql
=head2 expand NAME
This command lists out the relative paths and names of the 3 files of the
action provided, so you can do stuff like:
vi `dest expand db/schema`
=head2 list [FILTER]
This command will list all tracked directories and every action within each
directory. If provided a filter, it will limit what's displayed to actions
App-Devel-MAT-Explorer-GTK
view release on metacpan or search on metacpan
lib/App/Devel/MAT/Explorer/GTK/SVDetail.pm view on Meta::CPAN
use App::Devel::MAT::Explorer::GTK::Utils qw( bytes2size );
use Struct::Dumb qw( -named_constructors );
use List::UtilsBy qw( nsort_by );
struct SVDetail => [qw( order type title render expand )];
my @MORE_DETAILS;
sub table_add
{
my ( $table, $label, $widget, $yoptions, $right ) = @_;
my $xoptions = [ "expand", "fill" ];
$yoptions //= [ "fill" ];
$right //= 3;
my ( $next_row ) = $table->get_size;
lib/App/Devel/MAT/Explorer/GTK/SVDetail.pm view on Meta::CPAN
when( "text" ) { $widget = textarea( $data ) }
when( "icon" ) { $widget = Gtk2::Image->new_from_pixbuf( get_icon( $data ) ) }
default { die "Unable to handle SV detail type " . $extra->type }
}
table_add( $table, $extra->title => $widget, $extra->expand ? [ "expand", "fill" ] : undef )
}
}
my $next_sv_detail_order = 0;
sub Devel::MAT::UI::provides_sv_detail
lib/App/Devel/MAT/Explorer/GTK/SVDetail.pm view on Meta::CPAN
push @MORE_DETAILS, SVDetail(
order => $args{order} // $next_sv_detail_order++,
type => $args{type},
title => $args{title},
render => $args{render},
expand => $args{expand},
);
}
0x55AA;
App-Device-Chip-UI
view release on metacpan or search on metacpan
lib/App/Device/Chip/UI.pm view on Meta::CPAN
)
);
$vbox->add(
my $tabbed = Tickit::Widget::Tabbed->new,
expand => 1,
);
my $updatesub;
my $initialtab;
App-Dex
view release on metacpan or search on metacpan
scripts/dex view on Meta::CPAN
PLAINKEY => [qw/ bright_blue /],
);
sub ansicolored {
my ($class, $tokens, %args) = @_;
my $expand_tabs = $args{expand_tabs};
$expand_tabs = 1 unless defined $expand_tabs;
require Term::ANSIColor;
local $Term::ANSIColor::EACHLINE = "\n";
my $ansi = '';
my $highlighted = '';
scripts/dex view on Meta::CPAN
$str = Term::ANSIColor::colored($color, $str);
}
$highlighted .= $str;
}
if ($expand_tabs) {
# Tabs can't be displayed with ansicolors
$highlighted =~ s/\t/' ' x 8/eg;
}
$ansi .= $highlighted;
return $ansi;
App-DiffTarballs
view release on metacpan or search on metacpan
},
"runtime" : {
"requires" : {
"Cwd" : "0",
"Data::Sah::Compiler::perl::TH::str" : "0",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"File::Temp" : "0.2307",
"File::chdir" : "0",
"IPC::System::Options" : "0.339",
"Log::ger" : "0.038",
App-DocKnot
view release on metacpan or search on metacpan
lib/App/DocKnot/Generate.pm view on Meta::CPAN
my $years = $copyright->{years};
# Build the initial notice with the word copyright and the years.
my $text = 'Copyright ' . $copyright->{years};
local $Text::Wrap::columns = $self->{width} + 1;
local $Text::Wrap::unexpand = 0;
$text = wrap($prefix, $prefix . q{ } x 4, $text);
# See if the holder fits on the last line. If so, add it there;
# otherwise, add another line.
my $last_length;
lib/App/DocKnot/Generate.pm view on Meta::CPAN
# Force locally correct configuration of Text::Wrap.
local $Text::Wrap::break = qr{\s+}xms;
local $Text::Wrap::columns = $self->{width} + 1;
local $Text::Wrap::huge = 'overflow';
local $Text::Wrap::unexpand = 0;
# Do the wrapping. This modifies @paragraphs in place.
$para = wrap($indent, $indent, $para);
# Strip any trailing whitespace, since some gets left behind after periods
App-Dochazka-CLI
view release on metacpan or search on metacpan
0.004 2014-08-08 15:35 CEST
- CLI.pm: add DESCRIPTION section to POD
0.005 2014-08-10 14:45 CEST
- fix bug "init routine not loading App-Dochazka-CLI sharedir"
- expand GET EMPLOYEE command:
- GET EMPLOYEE still returns current employee
- GET EMPLOYEE $INTEGER returns employee with EID $INTEGER
- GET EMPLOYEE $STRING returns employee with nick $STRING
- GET EMPLOYEE $STRING-CONTAINING-% runs a 'LIKE' search for multiple employees
- add ReadLine/History support using Term::ReadLine::Perl5
- implement "SCHEDULE CLEAR"
- cleanup, tweaks
0.136 2015-03-30 15:11 CEST
- resolve two tickets
- TokenMap.pm: expand EMPLOYEE_SPEC so we can do "nick=...", "sec_id=..." and
"eid=..."
- Util.pm: make "lookup_employee" handle expanded EMPLOYEE_SPEC
- t/cmd_admin/employee.t: add test cases for expanded EMPLOYEE_SPEC
0.137 2015-03-30 23:11 CEST
- start adding scode support
0.138 2015-03-31 17:18 CEST
- give active testing employee a schedule already in t/001-init.t;
get rid of unintuitive t/cmd_active/001-init.t
- use prompt date (century, year, month, etc.) instead of current date
(century, year, month, etc.)
- Test.pm: add a 'delete_interval' test routine
- t/cmd_active/interval.t: expand unit; use imported 'delete_interval' routine;
test that "PROMPT 2015-01-01" does change all the $prompt_... variables
0.186 2015-04-28 17:34 CEST
- t/util/: add two new units auth.t and determine_employee.t
- Util.pm: abolish 'quiet' parameter to authenticate_to_server and make routine
- Util.pm: use debug log level
- t/util/datelist.t: cleanup, initialize logger
0.233 2016-01-30 23:45 CET
- Remove INTERVAL FILLUP DATELIST ambiguity
- Commands/Interval.pm: expand statistics reported by INTERVAL FILLUP
- simplify INTERVAL FILLUP command syntax by removing _MONTH
- bin/dochazka-cli: drop annoying "Payload: undef" from output of certain commands
- Completion.pm: eliminate tab completion warning
- pod (Testers.pm): add sessions 2, 3, 4, and 5
App-Dochazka-Common
view release on metacpan or search on metacpan
- build/ops: drop Makefile.PL, add t/critic.t and t/manifest.t
- Model.pm: address Perl::Critic critique
- t/model/reset.t: populate scode property of Schedhistory
0.210 2022-06-29 11:48 CEST
- doc: fix POD of main module and expand copyright date range
- bootstrap.sh: add new file
App-Dochazka-REST
view release on metacpan or search on metacpan
lib/App/Dochazka/REST/Model/Schedule.pm view on Meta::CPAN
=item * all the times are evenly divisible by five minutes
=back
#
# FIXME: expand the trigger to check for "closed-open" C<< [ ..., ... ) >> tsrange
#
If the schedule is successfully inserted into C<schedintvls>, the next step is
to "translate", or convert, the individual intervals (expressed as tsrange
values) into the four-key hashes described in L<Schedules in the database>,
App-Dothe
view release on metacpan or search on metacpan
lib/App/Dothe.pm view on Meta::CPAN
cmds:
- dzil release
=head4 C<sources>
Array of files. Can take glob patterns that will be expanded using
L<Path::Tiny::Glob>. The result is accessible via the C<sources> variable.
foo:
sources: [ './lib/**/*.pm' ]
foreach: sources
lib/App/Dothe.pm view on Meta::CPAN
Array of files. If C<sources> and C<generates> are both given, the task will
only be run if any of the sources (or the F<Dothe.yml> file itself) has been
modified after the C<generates> files.
Can take glob patterns that will be expanded using
L<Path::Tiny::Glob>. The result is accessible via the C<generates> variable.
=head4 C<foreach>
Takes the name of a variable that must hold an array. If presents,
App-DownloadsDirUtils
view release on metacpan or search on metacpan
"Data::Sah::Compiler::perl::TH::array" : "0.914",
"Data::Sah::Compiler::perl::TH::bool" : "0.914",
"Data::Sah::Compiler::perl::TH::int" : "0.914",
"Data::Sah::Compiler::perl::TH::re" : "0.914",
"Data::Sah::Compiler::perl::TH::str" : "0.914",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"Data::Sah::Filter::perl::Re::re_from_str" : "0",
"Exporter" : "5.57",
"File::Basename" : "0",
"File::Copy::Recursive" : "0",
App-DrivePlayer
view release on metacpan or search on metacpan
lib/App/DrivePlayer/Config.pm view on Meta::CPAN
$file->{google_restapi} //= {};
$file->{google_restapi}{auth} = delete $file->{auth};
}
_merge($data, $file);
}
_expand_paths($data, dirname($self->config_file));
return $data;
}
# Recursively merge $src over $dst (scalar/array values in $src win).
sub _merge {
lib/App/DrivePlayer/Config.pm view on Meta::CPAN
acoustid_key => '',
sheet_id => '',
};
}
sub _expand_paths {
my ($data, $config_dir) = @_;
for my $key (qw( log_file )) {
$data->{$key} = _abs_path($data->{$key}, $config_dir) if defined $data->{$key};
}
$data->{database}{path} = _abs_path($data->{database}{path}, $config_dir)
lib/App/DrivePlayer/Config.pm view on Meta::CPAN
Reads a YAML configuration file and provides typed accessors for every
setting. Missing files are silently replaced by built-in defaults so the
application works out of the box before the user runs the setup wizard.
Tilde (C<~>) at the start of any path value is expanded to C<$HOME>.
=head1 ATTRIBUTES
=head2 config_file
App-DualLivedDiff
view release on metacpan or search on metacpan
lib/App/DualLivedDiff.pm view on Meta::CPAN
my $module_name = shift;
#my $use_dev_versions = shift;
my $distro;
if ($module_name =~ /[\/.]/) {
my $dist = CPAN::Shell->expandany($module_name);
if (not defined $dist) {
warn "Could not find distribution '$module_name' on CPAN\n";
return();
}
$dist = $dist->distribution() if ref($dist) eq 'CPAN::Module';
lib/App/DualLivedDiff.pm view on Meta::CPAN
}
$distro = $dist->pretty_id();
warn "Assuming you specified a distribution name. Found the '$distro' distribution on CPAN\n";
}
else {
my $module = CPAN::Shell->expand("Module", $module_name);
if (not defined $module) {
warn "Could not find module '$module_name' on CPAN\n";
return();
}
$distro = $module->distribution()->pretty_id();
App-DualLivedList
view release on metacpan or search on metacpan
bin/dual-lived view on Meta::CPAN
YVES);
my (@matches) = grep( ( $_ eq $d ), @mods );
if (@matches) {
for $d ( CPAN::Shell->expand( "Module", "$d" ) ) {
$print->bold_black( "\n\tmodule: ", $d->id ),
$print->dark_blue( "\tauthor: ", $d->cpan_userid ),
$print->dark_blue( "\tcurrent version: ", $d->cpan_version ),
$print->dark_red( "\tinstalled version: ", $d->inst_version ),
$print->dark_red( "\t", $d->inst_file );
}
$print->dark_magenta("\t@matches is core and is Dual-Lived");
}
else {
for $d ( CPAN::Shell->expand( "Module", $d ) ) {
$print->bold_black( "\n\tmodule: ", $d->id ),
$print->dark_blue( "\tauthor: ", $d->cpan_userid ),
$print->dark_blue( "\tcurrent version is: ", $d->cpan_version ),
$print->dark_red( "\tinstalled version: ", $d->inst_version ),
$print->dark_red( "\t", $d->inst_file ),
bin/dual-lived view on Meta::CPAN
}
sub list {
print "module: ", "\n";
foreach my $mod (@mods) {
for $mod ( CPAN::Shell->expand( "Module", $mod ) ) {
$print->bold_black( $mod->id );
}
}
}
bin/dual-lived view on Meta::CPAN
use File::CountLines qw(count_lines);
use Number::Bytes::Human qw(format_bytes);
my $h = Number::Bytes::Human->new;
for $d ( CPAN::Shell->expand( "Module", $d ) ) {
my $size = $h->format( -s $d->inst_file );
print "Installed size: ", $size, "\n";
my $path = ( $d->inst_file );
my $no_lines = count_lines($path);
print "Number of lines: ", $no_lines, "\n";
bin/dual-lived view on Meta::CPAN
}
}
sub authors {
foreach my $mod (@mods) {
for $mod ( CPAN::Shell->expand( "Module", $mod ) ) {
$print->dark_blue( $mod->cpan_userid );
}
}
}
sub distribution {
my $distribution
= CPAN::Shell->expand( "Module", $d )->distribution()->pretty_id($d);
print $distribution, "\n";
CPAN::Index->reload();
my @modules = CPAN::Shell->expand( "Distribution", $distribution )
->containsmods();
foreach my $module (@modules) {
print $module, "\n";
}
}
App-DuckPAN
view release on metacpan or search on metacpan
lib/App/DuckPAN.pm view on Meta::CPAN
option verbose => (
is => 'ro',
lazy => 1,
short => 'v|debug',
default => sub { 0 },
doc => 'provide expanded output during operation',
);
has duckpan_packages => (
is => 'ro',
lazy => 1,
App-DuplicateFilesUtils
view release on metacpan or search on metacpan
}
},
"runtime" : {
"requires" : {
"Data::Sah::Compiler::perl::TH::str" : "0.914",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"File::Copy" : "0",
"File::FindUniq" : "0.004",
"Log::ger" : "0.038",
"Perinci::CmdLine::Any" : "0.154",
App-Dusage
view release on metacpan or search on metacpan
lib/App/Dusage.pm view on Meta::CPAN
When B<dusage> is run, it reads the control file, optionally gathers
new disk usage values by calling the B<du> program, prints the report,
and optionally updates the control file with the new information.
Filenames in the control file may have wildcards. In this case, the
wildcards are expanded, and all entries reported. Both the expanded
names as the wildcard info are maintained in the control file. New
files in these directories will automatically show up, deleted files
will disappear when they have run out of data in the control file (but
see the B<-r> option).
lib/App/Dusage.pm view on Meta::CPAN
!maildir/unimportant
src 498::::::
The names in the control file are separated by the values with a C<Tab>;
the values are separated by colons. Also, the entries found by
expanding the wildcard are added. If the wildcard expansion had
generated a name ``maildir/unimportant'' it would have been skipped.
When the program is rerun after one day, it could print the following
report:
App-Easer
view release on metacpan or search on metacpan
lib/App/Easer/V1.pm view on Meta::CPAN
return;
} ## end sub get_child
sub stock_ChildrenByPrefix ($self, $spec, @prefixes) {
require File::Spec;
my @expanded_inc = map {
my ($v, $dirs) = File::Spec->splitpath($_, 'no-file');
[$v, File::Spec->splitdir($dirs)];
} @INC;
my %seen;
return map {
lib/App/Easer/V1.pm view on Meta::CPAN
&& substr($_, 0, length($bprefix)) eq $bprefix
&& substr($_, -3, 3) eq '.pm'
} readdir $dh;
}
else { () }
} @expanded_inc;
} @prefixes;
}
sub expand_children ($self, $spec, $child_spec) {
return $child_spec unless ref($child_spec) eq 'ARRAY';
my ($exe, @args) = $child_spec->@*;
return $self->{factory}->($exe, 'children')->($self, $spec, @args);
}
sub get_children ($self, $spec, $expand = 1) {
return if $spec->{leaf};
return if exists($spec->{children}) && !$spec->{children};
my @children = ($spec->{children} // [])->@*;
# set auto-leaves as 1 by default, new in 0.007002
lib/App/Easer/V1.pm view on Meta::CPAN
return
if $self->{application}{configuration}{'auto-leaves'}
&& @children == 0; # no auto-children for leaves under auto-leaves
# skip expansion if $expand is false (default is expand)
@children = map { expand_children($self, $spec, $_) } @children
if $expand;
my @auto =
exists $self->{application}{configuration}{'auto-children'}
? (($self->{application}{configuration}{'auto-children'} // [])->@*)
: (qw< help commands >);
App-EbookUtils
view release on metacpan or search on metacpan
"requires" : {
"Cwd" : "0",
"Data::Sah::Compiler::perl::TH::array" : "0.914",
"Data::Sah::Compiler::perl::TH::bool" : "0.914",
"Data::Sah::Compiler::perl::TH::str" : "0.914",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"File::Temp" : "0.2310",
"File::chdir" : "0",
"IPC::System::Options" : "0.339",
"Log::ger" : "0.038",
App-EditorTools
view release on metacpan or search on metacpan
share/vim/editortools.vim view on Meta::CPAN
endif
let line = line('.')
" should backtrack to $ or % or the like
let col = col('.')
let filename = expand('%')
let command = "editortools renamevariable -c " . col . " -l " . line . " -r " . newvar
call Exec_command_and_replace_buffer( command )
endfunction
function! RenamePackageFromPath()
let line = line('.')
let col = col('.')
let filename = expand('%')
let command = "editortools renamepackagefrompath -f " . filename
call Exec_command_and_replace_buffer( command )
endfunction
App-ElasticSearch-Utilities
view release on metacpan or search on metacpan
examples/es-parse-query-string.pl view on Meta::CPAN
}
my $qs = App::ElasticSearch::Utilities::QueryString->new(
fields_meta => \%fields,
default_join => $OPT{or} ? 'OR' : 'AND',
);
my $query = $qs->expand_query_string(@ARGV);
output({color=>'cyan'}, "Request URI Params:");
output($json->encode($query->uri_params));
output({clear=>1,color=>'yellow'}, "Request Body:");
( run in 2.497 seconds using v1.01-cache-2.11-cpan-97f6503c9c8 )