Result:
found more than 629 distributions - search limited to the first 2001 files matching your query
( run in 1.709 )
App-cpanminus
view release on metacpan or search on metacpan
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
#pod
#pod $response = $http->request($method, $url);
#pod $response = $http->request($method, $url, \%options);
#pod
#pod Executes an HTTP request of the given method type ('GET', 'HEAD', 'POST',
#pod 'PUT', etc.) on the given URL. The URL must have unsafe characters escaped and
#pod international domain names encoded.
#pod
#pod If the URL includes a "user:password" stanza, they will be used for Basic-style
#pod authorization headers. (Authorization headers will not be included in a
#pod redirected request.) For example:
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
#pod On an exception during the execution of the request, the C<status> field will
#pod contain 599, and the C<content> field will contain the text of the exception.
#pod
#pod =cut
my %idempotent = map { $_ => 1 } qw/GET HEAD PUT DELETE OPTIONS TRACE/;
sub request {
my ($self, $method, $url, $args) = @_;
@_ == 3 || (@_ == 4 && ref $args eq 'HASH')
or Carp::croak(q/Usage: $http->request(METHOD, URL, [HASHREF])/ . "\n");
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
$response = $http->request($method, $url);
$response = $http->request($method, $url, \%options);
Executes an HTTP request of the given method type ('GET', 'HEAD', 'POST',
'PUT', etc.) on the given URL. The URL must have unsafe characters escaped and
international domain names encoded.
If the URL includes a "user:password" stanza, they will be used for Basic-style
authorization headers. (Authorization headers will not be included in a
redirected request.) For example:
App-cpantimes
view release on metacpan or search on metacpan
unlink $tempfile;
return $response;
}
my %idempotent = map { $_ => 1 } qw/GET HEAD PUT DELETE OPTIONS TRACE/;
sub request {
my ($self, $method, $url, $args) = @_;
@_ == 3 || (@_ == 4 && ref $args eq 'HASH')
or Carp::croak(q/Usage: $http->request(METHOD, URL, [HASHREF])/);
App-cpanurl
view release on metacpan or search on metacpan
script/cpanurl view on Meta::CPAN
unlink $tempfile;
return $response;
}
my %idempotent = map { $_ => 1 } qw/GET HEAD PUT DELETE OPTIONS TRACE/;
sub request {
my ($self, $method, $url, $args) = @_;
@_ == 3 || (@_ == 4 && ref $args eq 'HASH')
or Carp::croak(q/Usage: $http->request(METHOD, URL, [HASHREF])/ . "\n");
App-csv2tsv
view release on metacpan or search on metacpan
exit if $opt20 ;
exit if ! defined $csv ;
my @tmp = $csv -> error_diag () ; # ($cde, $str, $pos, $rec, $fld) = $csv->error_diag ();
if ( $tmp[0] != 2012 ) { # perldoc Text::CSV 㧠2012 をå‚照。EOFã‚’æ„味ã™ã‚‹ã€‚
print STDERR BRIGHT_RED join (":",@tmp),"\n" ;
print STDERR ON_BRIGHT_RED BLACK "_ERROR_INPUT at line $.: " ;
#use Data::Dumper ; #print STDERR UNDERLINE Dumper $csv ;
print STDERR UNDERLINE BRIGHT_RED $csv ->{_ERROR_INPUT} ;
exit 1 ;
}
}
}
App-csvtool
view release on metacpan or search on metacpan
lib/App/csvtool.pm view on Meta::CPAN
package App::csvtool::cut
{
=head2 cut
$ csvtool cut -fFIELDS INPUT...
Extracts the given field column(s).
=head3 --fields, -f
lib/App/csvtool.pm view on Meta::CPAN
{ name => "fields|f=", description => "Comma-separated list of fields to extract",
default => "1" },
);
use constant WANT_READER => 1;
use constant WANT_OUTPUT => 1;
sub run ( $pkg, $opts, $reader, $output )
{
my @FIELDS = split m/,/, $opts->{fields};
lib/App/csvtool.pm view on Meta::CPAN
package App::csvtool::grep
{
=head2 grep
$ csvtool grep PATTERN INPUT...
Filter rows by the given pattern. The pattern is always interpreted as a Perl
regular expression.
=head3 --ignore-case, -i
lib/App/csvtool.pm view on Meta::CPAN
use constant COMMAND_ARGS => (
{ name => "pattern", description => "regexp pattern for filtering" },
);
use constant WANT_READER => 1;
use constant WANT_OUTPUT => 1;
sub run ( $pkg, $opts, $pattern, $reader, $output )
{
my $FIELD = $opts->{field};
my $INVERT = $opts->{invert_match} // 0;
lib/App/csvtool.pm view on Meta::CPAN
package App::csvtool::head
{
=head2 head
$ csvtool head -nLINES INPUT...
Output only the first few rows.
=head3 --lines, -n
lib/App/csvtool.pm view on Meta::CPAN
{ name => "lines|n=i", description => "Number of rows to select",
default => 10 },
);
use constant WANT_READER => 1;
use constant WANT_OUTPUT => 1;
sub run ( $pkg, $opts, $reader, $output )
{
my $LINES = $opts->{lines};
lib/App/csvtool.pm view on Meta::CPAN
{ name => "field1|1=", description => "Field of FILE1 to join by" },
{ name => "field2|2=", description => "Field of FILE2 to join by" },
);
use constant WANT_READER => 2;
use constant WANT_OUTPUT => 1;
sub run ( $pkg, $opts, $reader1, $reader2, $output )
{
my $FIELD1 = $opts->{field1} // $opts->{field}; $FIELD1--;
my $FIELD2 = $opts->{field2} // $opts->{field}; $FIELD2--;
lib/App/csvtool.pm view on Meta::CPAN
package App::csvtool::sort
{
=head2 sort
$ csvtool sort INPUT...
Sorts the rows according to the given field.
=head3 --field, -f
lib/App/csvtool.pm view on Meta::CPAN
);
use List::UtilsBy qw( sort_by nsort_by );
use constant WANT_READER => 1;
use constant WANT_OUTPUT => 1;
sub run ( $pkg, $opts, $reader, $output )
{
my $FIELD = $opts->{field};
lib/App/csvtool.pm view on Meta::CPAN
package App::csvtool::tail
{
=head2 tail
$ csvtool tail -nLINES INPUT...
Output only the final few rows.
=head3 --lines, -n
lib/App/csvtool.pm view on Meta::CPAN
{ name => "lines|n=i", description => "Number of rows to select",
default => 10 },
);
use constant WANT_READER => 1;
use constant WANT_OUTPUT => 1;
sub run ( $pkg, $opts, $reader, $output )
{
my $LINES = $opts->{lines};
lib/App/csvtool.pm view on Meta::CPAN
package App::csvtool::uniq
{
=head2 uniq
$ csvtool uniq -fFIELD INPUT...
Filters rows for unique values of the given field.
=head3 --field, -f
lib/App/csvtool.pm view on Meta::CPAN
{ name => "field|f=", description => "Field to key by",
default => 1 },
);
use constant WANT_READER => 1;
use constant WANT_OUTPUT => 1;
sub run ( $pkg, $opts, $reader, $output )
{
my $FIELD = $opts->{field};
App-devmode
view release on metacpan or search on metacpan
bin/devmode view on Meta::CPAN
});
# Add the provider to the config
my $tt = Template->new({
LOAD_TEMPLATES => [ $provider ],
OUTPUT_PATH => $out_dir,
});
my %data = (
cwd => file('.')->absolute->resolve,
devmode => file($0)->absolute->resolve,
App-diroctopus
view release on metacpan or search on metacpan
}
# メインã®å¾Œã®å‡ºåŠ›
* REVERSE = sub { @_ } ;
print STDERR " -- " ;
print STDERR BOLD " NO OUTPUT RECORD ! -- " if $OutRec == 0 ;
print STDERR REVERSE ITALIC " Output records: " , CLEAR " $OutRec " ;
print STDERR " " , REVERSE ITALIC " Used random seed: " , CLEAR " $o{s} " ;
say STDERR " " , REVERSE ITALIC " Process time: " , CLEAR " " , ( tv_interval $time_start , [ gettimeofday ] ) , " second(s)." ;
}
App-dt
view release on metacpan or search on metacpan
sub _read_file {
my ($filename) = @_;
my $fmt;
DETERMINE_INPUT_FORMAT:
{
if ($filename eq '-') {
$fmt = $Opts{default_input_format};
last;
} elsif ($filename =~ s/:(json|yaml|perl)\z//) {
sub _write_file {
my ($filename, $data) = @_;
my $fmt;
my $pretty = $Opts{pretty};
DETERMINE_OUTPUT_FORMAT:
{
if ($filename eq '-') {
$fmt = $Opts{default_output_format};
$pretty //= 1 if -t STDOUT;
last;
App-duino
view release on metacpan or search on metacpan
lib/App/duino/Command/build.pm view on Meta::CPAN
sketchbook => $opt -> sketchbook,
hardware => $hardware,
};
$template -> fill_in(
OUTPUT => $makefile, HASH => $makefile_opts
);
system 'make', '--silent', '-f', $makefile_name;
die "Failed to build.\n" unless $? == 0;
}
App-easyDifferentialGeneCoexpressionWrapper
view release on metacpan or search on metacpan
## Execution instructions
The command for running easyDifferentialGeneCoexpressionWrapper is:
```diff
easyDifferentialGeneCoexpressionWrapper -a "PROBESETS_OR_GENE_SYMBOLS" -f "INPUT_FILE" -d "GEO_DATASET_CODE" -v "FEATURE_NAME" -v1 "CONDITION_1" -v2 "CONDITION_2" -o "OUTPUT_FILE"
```
An example usage command for computing the differential coexpression of probesets in the (<a href="https://www.ncbi.nlm.nih.gov/geo/query/acc.cgi?acc=GSE30201" target="_blank" rel="noopener noreferrer">GSE30201 gene expression dataset</a>) is:
```diff
-a <PROBESETS_OR_GENE_SYMBOLS>
A flag to indicate type of data (probesets or gene symbols) being read during execution
-f <INPUT_FILE>
The name of the CSV file listing the probesets or the gene symbols
-d <GEO_DATASET_CODE>
-v2 <CONDITION_2>
Name of the second condition in the feature to discriminate (for example, "can-
cer")
-o <OUTPUT_FILE>
Name of the output file where the output data for the differential coexpression of probesets are written
<p>Help information can be read by typing the following command:</p>
App-efm_perl
view release on metacpan or search on metacpan
For efm-langserver, set config.yaml as below.
tools:
efm-perl: &efm-perl
lint-command: efm-perl -f ${INPUT}
lint-ignore-exit-code: true
lint-stdin: true
lint-formats:
- '%l:%m'
App-finddo
view release on metacpan or search on metacpan
script/_finddo view on Meta::CPAN
# my $mode = '>';
# if ($filename =~ /^\s*(>{1,2})\s*(.*)$/) {
# ($mode, $filename) = ($1, $2);
# }
# open $OUT, $mode, $filename
# or YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT', $filename, $!);
# }
# binmode $OUT, ':utf8';
# local $/ = "\n";
# print $OUT Dump(@_);
#}
script/_finddo view on Meta::CPAN
# if (ref $filename eq 'GLOB') {
# $IN = $filename;
# }
# else {
# open $IN, '<', $filename
# or YAML::Old::Mo::Object->die('YAML_LOAD_ERR_FILE_INPUT', $filename, $!);
# }
# binmode $IN, ':utf8';
# return Load(do { local $/; <$IN> });
#}
#
script/_finddo view on Meta::CPAN
# Can't parse node
#YAML_PARSE_ERR_BAD_EXPLICIT
# Unsupported explicit transfer: '%s'
#YAML_DUMP_USAGE_DUMPCODE
# Invalid value for DumpCode: '%s'
#YAML_LOAD_ERR_FILE_INPUT
# Couldn't open %s for input:\n%s
#YAML_DUMP_ERR_FILE_CONCATENATE
# Can't concatenate to YAML file %s
#YAML_DUMP_ERR_FILE_OUTPUT
# Couldn't open %s for output:\n%s
#YAML_DUMP_ERR_NO_HEADER
# With UseHeader=0, the node must be a plain hash or array
#YAML_DUMP_WARN_BAD_NODE_TYPE
# Can't perform serialization for node type: '%s'
App-freqtable
view release on metacpan or search on metacpan
script/freqtable view on Meta::CPAN
'output-every=i' => \$Opts{output_every},
'format=s' =>\$Opts{format},
'help|h' => sub {
print <<USAGE;
Usage:
freqtable [OPTIONS]... < INPUT
freqtable --help (or -h)
Options:
--bytes, -c
--chars, -m
--words, -w
script/freqtable view on Meta::CPAN
This document describes version 0.010 of freqtable (from Perl distribution App-freqtable), released on 2025-08-03.
=head1 SYNOPSIS
% freqtable [OPTIONS] < INPUT
Sample input:
% cat input-lines.txt
one
App-genpw-base56
view release on metacpan or search on metacpan
script/_genpw-base56 view on Meta::CPAN
# my $mode = '>';
# if ($filename =~ /^\s*(>{1,2})\s*(.*)$/) {
# ($mode, $filename) = ($1, $2);
# }
# open $OUT, $mode, $filename
# or YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT', $filename, "$!");
# }
# binmode $OUT, ':utf8';
# local $/ = "\n";
# print $OUT Dump(@_);
# unless (ref $filename eq 'GLOB') {
# close $OUT
# or do {
# my $errsav = $!;
# YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT_CLOSE', $filename, $errsav);
# }
# }
#}
#
#sub LoadFile {
script/_genpw-base56 view on Meta::CPAN
# if (openhandle $filename) {
# $IN = $filename;
# }
# else {
# open $IN, '<', $filename
# or YAML::Old::Mo::Object->die('YAML_LOAD_ERR_FILE_INPUT', $filename, "$!");
# }
# binmode $IN, ':utf8';
# return Load(do { local $/; <$IN> });
#}
#
script/_genpw-base56 view on Meta::CPAN
# Can't parse node
#YAML_PARSE_ERR_BAD_EXPLICIT
# Unsupported explicit transfer: '%s'
#YAML_DUMP_USAGE_DUMPCODE
# Invalid value for DumpCode: '%s'
#YAML_LOAD_ERR_FILE_INPUT
# Couldn't open %s for input:\n%s
#YAML_DUMP_ERR_FILE_CONCATENATE
# Can't concatenate to YAML file %s
#YAML_DUMP_ERR_FILE_OUTPUT
# Couldn't open %s for output:\n%s
#YAML_DUMP_ERR_FILE_OUTPUT_CLOSE
# Error closing %s:\n%s
#YAML_DUMP_ERR_NO_HEADER
# With UseHeader=0, the node must be a plain hash or array
#YAML_DUMP_WARN_BAD_NODE_TYPE
# Can't perform serialization for node type: '%s'
App-genpw-base58
view release on metacpan or search on metacpan
script/_genpw-base58 view on Meta::CPAN
# my $mode = '>';
# if ($filename =~ /^\s*(>{1,2})\s*(.*)$/) {
# ($mode, $filename) = ($1, $2);
# }
# open $OUT, $mode, $filename
# or YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT', $filename, "$!");
# }
# binmode $OUT, ':utf8';
# local $/ = "\n";
# print $OUT Dump(@_);
# unless (ref $filename eq 'GLOB') {
# close $OUT
# or do {
# my $errsav = $!;
# YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT_CLOSE', $filename, $errsav);
# }
# }
#}
#
#sub LoadFile {
script/_genpw-base58 view on Meta::CPAN
# if (openhandle $filename) {
# $IN = $filename;
# }
# else {
# open $IN, '<', $filename
# or YAML::Old::Mo::Object->die('YAML_LOAD_ERR_FILE_INPUT', $filename, "$!");
# }
# binmode $IN, ':utf8';
# return Load(do { local $/; <$IN> });
#}
#
script/_genpw-base58 view on Meta::CPAN
# Can't parse node
#YAML_PARSE_ERR_BAD_EXPLICIT
# Unsupported explicit transfer: '%s'
#YAML_DUMP_USAGE_DUMPCODE
# Invalid value for DumpCode: '%s'
#YAML_LOAD_ERR_FILE_INPUT
# Couldn't open %s for input:\n%s
#YAML_DUMP_ERR_FILE_CONCATENATE
# Can't concatenate to YAML file %s
#YAML_DUMP_ERR_FILE_OUTPUT
# Couldn't open %s for output:\n%s
#YAML_DUMP_ERR_FILE_OUTPUT_CLOSE
# Error closing %s:\n%s
#YAML_DUMP_ERR_NO_HEADER
# With UseHeader=0, the node must be a plain hash or array
#YAML_DUMP_WARN_BAD_NODE_TYPE
# Can't perform serialization for node type: '%s'
App-genpw-base64
view release on metacpan or search on metacpan
script/_genpw-base64 view on Meta::CPAN
# my $mode = '>';
# if ($filename =~ /^\s*(>{1,2})\s*(.*)$/) {
# ($mode, $filename) = ($1, $2);
# }
# open $OUT, $mode, $filename
# or YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT', $filename, "$!");
# }
# binmode $OUT, ':utf8';
# local $/ = "\n";
# print $OUT Dump(@_);
# unless (ref $filename eq 'GLOB') {
# close $OUT
# or do {
# my $errsav = $!;
# YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT_CLOSE', $filename, $errsav);
# }
# }
#}
#
#sub LoadFile {
script/_genpw-base64 view on Meta::CPAN
# if (openhandle $filename) {
# $IN = $filename;
# }
# else {
# open $IN, '<', $filename
# or YAML::Old::Mo::Object->die('YAML_LOAD_ERR_FILE_INPUT', $filename, "$!");
# }
# binmode $IN, ':utf8';
# return Load(do { local $/; <$IN> });
#}
#
script/_genpw-base64 view on Meta::CPAN
# Can't parse node
#YAML_PARSE_ERR_BAD_EXPLICIT
# Unsupported explicit transfer: '%s'
#YAML_DUMP_USAGE_DUMPCODE
# Invalid value for DumpCode: '%s'
#YAML_LOAD_ERR_FILE_INPUT
# Couldn't open %s for input:\n%s
#YAML_DUMP_ERR_FILE_CONCATENATE
# Can't concatenate to YAML file %s
#YAML_DUMP_ERR_FILE_OUTPUT
# Couldn't open %s for output:\n%s
#YAML_DUMP_ERR_FILE_OUTPUT_CLOSE
# Error closing %s:\n%s
#YAML_DUMP_ERR_NO_HEADER
# With UseHeader=0, the node must be a plain hash or array
#YAML_DUMP_WARN_BAD_NODE_TYPE
# Can't perform serialization for node type: '%s'
App-genpw-id
view release on metacpan or search on metacpan
script/_genpw-id view on Meta::CPAN
# my $mode = '>';
# if ($filename =~ /^\s*(>{1,2})\s*(.*)$/) {
# ($mode, $filename) = ($1, $2);
# }
# open $OUT, $mode, $filename
# or YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT', $filename, "$!");
# }
# binmode $OUT, ':utf8'; # if $Config{useperlio} eq 'define';
# local $/ = "\n"; # reset special to "sane"
# print $OUT Dump(@_);
# unless (ref $filename eq 'GLOB') {
# close $OUT
# or do {
# my $errsav = $!;
# YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT_CLOSE', $filename, $errsav);
# }
# }
#}
#
#sub LoadFile {
script/_genpw-id view on Meta::CPAN
# if (openhandle $filename) {
# $IN = $filename;
# }
# else {
# open $IN, '<', $filename
# or YAML::Old::Mo::Object->die('YAML_LOAD_ERR_FILE_INPUT', $filename, "$!");
# }
# binmode $IN, ':utf8'; # if $Config{useperlio} eq 'define';
# return Load(do { local $/; <$IN> });
#}
#
script/_genpw-id view on Meta::CPAN
# Can't parse node
#YAML_PARSE_ERR_BAD_EXPLICIT
# Unsupported explicit transfer: '%s'
#YAML_DUMP_USAGE_DUMPCODE
# Invalid value for DumpCode: '%s'
#YAML_LOAD_ERR_FILE_INPUT
# Couldn't open %s for input:\n%s
#YAML_DUMP_ERR_FILE_CONCATENATE
# Can't concatenate to YAML file %s
#YAML_DUMP_ERR_FILE_OUTPUT
# Couldn't open %s for output:\n%s
#YAML_DUMP_ERR_FILE_OUTPUT_CLOSE
# Error closing %s:\n%s
#YAML_DUMP_ERR_NO_HEADER
# With UseHeader=0, the node must be a plain hash or array
#YAML_DUMP_WARN_BAD_NODE_TYPE
# Can't perform serialization for node type: '%s'
App-genpw-ind
view release on metacpan or search on metacpan
script/_genpw-ind view on Meta::CPAN
# my $mode = '>';
# if ($filename =~ /^\s*(>{1,2})\s*(.*)$/) {
# ($mode, $filename) = ($1, $2);
# }
# open $OUT, $mode, $filename
# or YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT', $filename, "$!");
# }
# binmode $OUT, ':utf8'; # if $Config{useperlio} eq 'define';
# local $/ = "\n"; # reset special to "sane"
# print $OUT Dump(@_);
# unless (ref $filename eq 'GLOB') {
# close $OUT
# or do {
# my $errsav = $!;
# YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT_CLOSE', $filename, $errsav);
# }
# }
#}
#
#sub LoadFile {
script/_genpw-ind view on Meta::CPAN
# if (openhandle $filename) {
# $IN = $filename;
# }
# else {
# open $IN, '<', $filename
# or YAML::Old::Mo::Object->die('YAML_LOAD_ERR_FILE_INPUT', $filename, "$!");
# }
# binmode $IN, ':utf8'; # if $Config{useperlio} eq 'define';
# return Load(do { local $/; <$IN> });
#}
#
script/_genpw-ind view on Meta::CPAN
# Can't parse node
#YAML_PARSE_ERR_BAD_EXPLICIT
# Unsupported explicit transfer: '%s'
#YAML_DUMP_USAGE_DUMPCODE
# Invalid value for DumpCode: '%s'
#YAML_LOAD_ERR_FILE_INPUT
# Couldn't open %s for input:\n%s
#YAML_DUMP_ERR_FILE_CONCATENATE
# Can't concatenate to YAML file %s
#YAML_DUMP_ERR_FILE_OUTPUT
# Couldn't open %s for output:\n%s
#YAML_DUMP_ERR_FILE_OUTPUT_CLOSE
# Error closing %s:\n%s
#YAML_DUMP_ERR_NO_HEADER
# With UseHeader=0, the node must be a plain hash or array
#YAML_DUMP_WARN_BAD_NODE_TYPE
# Can't perform serialization for node type: '%s'
App-git-hub
view release on metacpan or search on metacpan
share/lib/git-hub view on Meta::CPAN
#------------------------------------------------------------------------------
# API calling functions:
#------------------------------------------------------------------------------
api-get() { api-call GET "$1" "$2"; }
api-post() { api-call POST "$1" "$2"; }
api-put() { api-call PUT "$1" "$2"; }
api-patch() { api-call PATCH "$1" "$2"; }
api-delete() { api-call DELETE "$1" "$2"; }
# Build a command to make the HTTP call to the API server, make the call, and
# check the result.
share/lib/git-hub view on Meta::CPAN
curl_command=(
curl
--request "$action"
"$url"
)
[ -n "$data" ] || [ "$action" = "PUT" ] && curl_command+=(-d "$data")
if [ -n "$basic_auth" ]; then
local login="$(get-login)"
if [ -n "$GIT_HUB_PASSWORD" ]; then
curl_command+=(-u "$login:$GIT_HUB_PASSWORD")
else
App-grindperl
view release on metacpan or search on metacpan
bin/grindperl view on Meta::CPAN
-D cc='ccache gcc'
-D cf_by=dagolden
-D cf_email='dagolden@cpan.org'
-D perladmin='dagolden@cpan.org'
-D optimize=-g
-A ccflags=-DPERL_USE_SAFE_PUTENV
To edit the config file, be sure your C<< EDITOR >> environment variable is set
and then run C<< grindperl --edit >>.
=head1 CAVEATS
App-hopen
view release on metacpan or search on metacpan
lib/App/hopen.pm view on Meta::CPAN
#INCLUDE => ['i','|include=s@'],
#LIB => ['l','|load=s@'], # TODO implement this. A separate option
# for libs only used for hopen files?
#LANGUAGE => ['L','|language:s'],
# --man reserved
# OUTPUT_FILENAME => ['o','|output=s', ""],
# OPTIMIZE => ['O','|optimize'],
PHASE => ['phase','=s'], # NO DEFAULT so we can tell if --phase was used
QUIET => ['q'],
App-hr
view release on metacpan or search on metacpan
# my $mode = '>';
# if ($filename =~ /^\s*(>{1,2})\s*(.*)$/) {
# ($mode, $filename) = ($1, $2);
# }
# open $OUT, $mode, $filename
# or YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT', $filename, "$!");
# }
# binmode $OUT, ':utf8'; # if $Config{useperlio} eq 'define';
# local $/ = "\n"; # reset special to "sane"
# print $OUT Dump(@_);
# unless (ref $filename eq 'GLOB') {
# close $OUT
# or do {
# my $errsav = $!;
# YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT_CLOSE', $filename, $errsav);
# }
# }
#}
#
#sub LoadFile {
# if (openhandle $filename) {
# $IN = $filename;
# }
# else {
# open $IN, '<', $filename
# or YAML::Old::Mo::Object->die('YAML_LOAD_ERR_FILE_INPUT', $filename, "$!");
# }
# binmode $IN, ':utf8'; # if $Config{useperlio} eq 'define';
# return Load(do { local $/; <$IN> });
#}
#
# Can't parse node
#YAML_PARSE_ERR_BAD_EXPLICIT
# Unsupported explicit transfer: '%s'
#YAML_DUMP_USAGE_DUMPCODE
# Invalid value for DumpCode: '%s'
#YAML_LOAD_ERR_FILE_INPUT
# Couldn't open %s for input:\n%s
#YAML_DUMP_ERR_FILE_CONCATENATE
# Can't concatenate to YAML file %s
#YAML_DUMP_ERR_FILE_OUTPUT
# Couldn't open %s for output:\n%s
#YAML_DUMP_ERR_FILE_OUTPUT_CLOSE
# Error closing %s:\n%s
#YAML_DUMP_ERR_NO_HEADER
# With UseHeader=0, the node must be a plain hash or array
#YAML_DUMP_WARN_BAD_NODE_TYPE
# Can't perform serialization for node type: '%s'
App-jt
view release on metacpan or search on metacpan
jt assumes the input is some data serialized as JSON, and perform transformation
based on its parameter. It can be used to deal with various RESTful web service
api, such as ElasticSearch.
=head1 OUTPUT OPTIONS
The default output format is JSON. If C<--csv> is provided then simple fields
are chosen and then converted to CSV. If C<--tsv> is provided then it becomes
tab-separated values.
App-karr
view release on metacpan or search on metacpan
lib/App/karr/Cmd/Board.pm view on Meta::CPAN
each status as a C<##> section, and one C<- id | title | meta...> line per task.
This stays readable when piped, redirected, diffed, or pasted. Colour is added
only when standard output is a terminal (and C<NO_COLOR> is unset). Compact and
JSON modes remain available for automation and scripting.
=head1 OUTPUT MODES
=over 4
=item * Default output
App-linespeed
view release on metacpan or search on metacpan
script/linespeed view on Meta::CPAN
exit 0;
},
'help|h' => sub {
print <<USAGE;
Usage:
linespeed [OPTIONS]... < INPUT
linespeed --version, -v
linespeed --help, -h
Options:
For more details, see the manpage/documentation.
USAGE
App-local-lib-Win32Helper
view release on metacpan or search on metacpan
xt/800_perlcritic.t view on Meta::CPAN
use strict;
BEGIN {
use English qw(-no_match_vars);
$OUTPUT_AUTOFLUSH = 1;
$WARNING = 1;
}
my @MODULES = (
'Perl::Tidy',
App-local-lib-helper
view release on metacpan or search on metacpan
lib/App/local/lib/helper/rationale.pod view on Meta::CPAN
You can see yours by typing C<perl -V> from the command line. Here's what I see
when I do so on my terminal:
$ perl -V
[EXTENSIVE OUTPUT SNIPPED]
@INC:
/Users/johnn/perl5/perlbrew/perls/perl-5.10.1/lib/5.10.1/darwin-thread-multi-2level
/Users/johnn/perl5/perlbrew/perls/perl-5.10.1/lib/5.10.1
/Users/johnn/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/darwin-thread-multi-2level
App-makedpkg
view release on metacpan or search on metacpan
# prepare debuild directory
makedpkg '--prepare', '--verbose';
ok !exit_code;
is output_no_config."\n", <<OUTPUT;
building into debuild
debuild/debian/changelog
debuild/debian/compat
debuild/debian/control
debuild/debian/rules
debuild/debian/source/format
before: pwd
debuild/debian/install
OUTPUT
is `find debuild | sort`, <<DEBUILD, 'files copied';
debuild
debuild/debian
debuild/debian/changelog
App-metasyn
view release on metacpan or search on metacpan
script/_metasyn view on Meta::CPAN
# my $mode = '>';
# if ($filename =~ /^\s*(>{1,2})\s*(.*)$/) {
# ($mode, $filename) = ($1, $2);
# }
# open $OUT, $mode, $filename
# or YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT', $filename, "$!");
# }
# binmode $OUT, ':utf8'; # if $Config{useperlio} eq 'define';
# local $/ = "\n"; # reset special to "sane"
# print $OUT Dump(@_);
# unless (ref $filename eq 'GLOB') {
# close $OUT
# or do {
# my $errsav = $!;
# YAML::Old::Mo::Object->die('YAML_DUMP_ERR_FILE_OUTPUT_CLOSE', $filename, $errsav);
# }
# }
#}
#
#sub LoadFile {
script/_metasyn view on Meta::CPAN
# if (openhandle $filename) {
# $IN = $filename;
# }
# else {
# open $IN, '<', $filename
# or YAML::Old::Mo::Object->die('YAML_LOAD_ERR_FILE_INPUT', $filename, "$!");
# }
# binmode $IN, ':utf8'; # if $Config{useperlio} eq 'define';
# return Load(do { local $/; <$IN> });
#}
#
script/_metasyn view on Meta::CPAN
# Can't parse node
#YAML_PARSE_ERR_BAD_EXPLICIT
# Unsupported explicit transfer: '%s'
#YAML_DUMP_USAGE_DUMPCODE
# Invalid value for DumpCode: '%s'
#YAML_LOAD_ERR_FILE_INPUT
# Couldn't open %s for input:\n%s
#YAML_DUMP_ERR_FILE_CONCATENATE
# Can't concatenate to YAML file %s
#YAML_DUMP_ERR_FILE_OUTPUT
# Couldn't open %s for output:\n%s
#YAML_DUMP_ERR_FILE_OUTPUT_CLOSE
# Error closing %s:\n%s
#YAML_DUMP_ERR_NO_HEADER
# With UseHeader=0, the node must be a plain hash or array
#YAML_DUMP_WARN_BAD_NODE_TYPE
# Can't perform serialization for node type: '%s'
App-mgen
view release on metacpan or search on metacpan
lib/App/mgen.pm view on Meta::CPAN
}
## std output
if ( !$self->{options}->{silent} ) {
print "$gen\n";
print "OUTPUT >> $path\n" if $path;
}
return $gen;
}
( run in 1.709 second using v1.01-cache-2.11-cpan-13bb782fe5a )