Result:
found more than 421 distributions - search limited to the first 2001 files matching your query
( run in 1.091 )
App-GenPericmdCompleterScript
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",
"Exporter" : "5.57",
"File::Slurper" : "0",
"File::Temp" : "0.2307",
"Log::ger" : "0.038",
App-GenPericmdScript
view release on metacpan or search on metacpan
"Data::Sah::Compiler::perl::TH::bool" : "0",
"Data::Sah::Compiler::perl::TH::hash" : "0",
"Data::Sah::Compiler::perl::TH::obj" : "0",
"Data::Sah::Compiler::perl::TH::re" : "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",
"Perinci::CmdLine::Any" : "0",
"Perinci::CmdLine::Gen" : "0.496",
"Sah::Schema::filename" : "0",
"Sah::Schema::perl::modname" : "0",
App-Genpass-ID
view release on metacpan or search on metacpan
script/_genpass-id view on Meta::CPAN
#$SPEC{':package'} = {
# v => 1.1,
# summary => 'Completion routines for bash shell',
#};
#
#sub _expand_tilde {
# my ($user, $slash) = @_;
# my @ent;
# if (length $user) {
# @ent = getpwnam($user);
# } else {
script/_genpass-id view on Meta::CPAN
#
# $word =~ s!^(~)(\w*)(/|\z) | # 1) tilde 2) username 3) optional slash
# \\(.) | # 4) escaped char
# \$(\w+) # 5) variable name
# !
# $1 ? (not($after_ws) || $is_cur_word ? "$1$2$3" : _expand_tilde($2, $3)) :
# $4 ? $4 :
# ($is_cur_word ? "\$$5" : $ENV{$5})
# !egx;
# $word;
#}
script/_genpass-id view on Meta::CPAN
# for the current word (`COMP_WORDS[COMP_CWORD]`) (bash does not perform
# variable substitution for `COMP_WORDS`). However, note that special shell
# variables that are not environment variables like `$0`, `$_`, `$IFS` will not
# be replaced correctly because bash does not export those variables for us.
#
#4) tildes (`~`) are expanded with user's home directory except for the current
# word (bash does not perform tilde expansion for `COMP_WORDS`);
#
#Caveats:
#
#* Like bash, we group non-whitespace word-breaking characters into its own word.
script/_genpass-id view on Meta::CPAN
# equivalent:
#
# % cmd --foo=bar
# % cmd --foo = bar
#
#Because they both expand to `['--foo', '=', 'bar']`. But obviously
#<pm:Getopt::Long> does not regard the two as equivalent.
#
#_
# args_as => 'array',
# args => {
script/_genpass-id view on Meta::CPAN
# path_sep=>'/'};
# RETURN_RES:
# $fres;
#}
#
#sub _expand1 {
# my ($opt, $opts) = @_;
# my @candidates;
# my $is_hash = ref($opts) eq 'HASH';
# for ($is_hash ? (sort {length($a)<=>length($b)} keys %$opts) : @$opts) {
# next unless index($_, $opt) == 0;
script/_genpass-id view on Meta::CPAN
# } else {
# push @inswords, $opt;
# $j++;
# }
#
# my $expand;
# if (length $rest) {
# $expand++;
# $expects[$j > $i ? $j+1 : $j+2]{do_complete_optname} = 0;
# $expects[$j > $i ? $j+1 : $j+2]{optval} = $opt;
# } else {
# $expects[$j > $i ? $j-1 : $j]{optname} = $opt;
# $expects[$j > $i ? $j-1 : $j]{comp_result} = [
script/_genpass-id view on Meta::CPAN
#
# if ($rest =~ s/\A=//) {
# $encounter_equal_sign++;
# }
#
# if ($expand) {
# push @inswords, "=", $rest;
# $j+=2;
# }
# last EXPAND;
# }
script/_genpass-id view on Meta::CPAN
# $cword += 2 if $cword >= $i;
# }
# }
#
# my $opt = $word;
# my $opthash = _expand1($opt, \%opts);
#
# if ($opthash) {
# $opt = $opthash->{name};
# $expects[$i]{optname} = $opt;
# my $nth = $seen_opts{$opt} // 0;
script/_genpass-id view on Meta::CPAN
# description => <<'_',
#
#Complete path, for anything path-like. Meant to be used as backend for other
#functions like `Complete::File::complete_file` or
#`Complete::Module::complete_module`. Provides features like case-insensitive
#matching, expanding intermediate paths, and case mapping.
#
#Algorithm is to split path into path elements, then list items (using the
#supplied `list_func`) and perform filtering (using the supplied `filter_func`)
#at every level.
#
script/_genpass-id view on Meta::CPAN
# (?<!\\)(?:\\\\)*\}
# )
# |
# # non-escaped brace expression, to catch * or ? or [...] inside so
# # they don't go to below pattern, because bash doesn't consider them
# # wildcards, e.g. '/{et?,us*}' expands to '/etc /usr', but '/{et?}'
# # doesn't expand at all to /etc.
# (?P<braceno>
# (?<!\\)(?:\\\\)*\{
# (?: \\\\ | \\\{ | \\\} | [^\\\{\}] )*
# (?<!\\)(?:\\\\)*\}
# )
App-Genpass-WordList
view release on metacpan or search on metacpan
script/_genpass-wordlist view on Meta::CPAN
#$SPEC{':package'} = {
# v => 1.1,
# summary => 'Completion routines for bash shell',
#};
#
#sub _expand_tilde {
# my ($user, $slash) = @_;
# my @ent;
# if (length $user) {
# @ent = getpwnam($user);
# } else {
script/_genpass-wordlist view on Meta::CPAN
#
# $word =~ s!^(~)(\w*)(/|\z) | # 1) tilde 2) username 3) optional slash
# \\(.) | # 4) escaped char
# \$(\w+) # 5) variable name
# !
# $1 ? (not($after_ws) || $is_cur_word ? "$1$2$3" : _expand_tilde($2, $3)) :
# $4 ? $4 :
# ($is_cur_word ? "\$$5" : $ENV{$5})
# !egx;
# $word;
#}
script/_genpass-wordlist view on Meta::CPAN
# for the current word (`COMP_WORDS[COMP_CWORD]`) (bash does not perform
# variable substitution for `COMP_WORDS`). However, note that special shell
# variables that are not environment variables like `$0`, `$_`, `$IFS` will not
# be replaced correctly because bash does not export those variables for us.
#
#4) tildes (`~`) are expanded with user's home directory except for the current
# word (bash does not perform tilde expansion for `COMP_WORDS`);
#
#Caveats:
#
#* Like bash, we group non-whitespace word-breaking characters into its own word.
script/_genpass-wordlist view on Meta::CPAN
# equivalent:
#
# % cmd --foo=bar
# % cmd --foo = bar
#
#Because they both expand to `['--foo', '=', 'bar']`. But obviously
#<pm:Getopt::Long> does not regard the two as equivalent.
#
#_
# args_as => 'array',
# args => {
script/_genpass-wordlist view on Meta::CPAN
# path_sep=>'/'};
# RETURN_RES:
# $fres;
#}
#
#sub _expand1 {
# my ($opt, $opts) = @_;
# my @candidates;
# my $is_hash = ref($opts) eq 'HASH';
# for ($is_hash ? (sort {length($a)<=>length($b)} keys %$opts) : @$opts) {
# next unless index($_, $opt) == 0;
script/_genpass-wordlist view on Meta::CPAN
# } else {
# push @inswords, $opt;
# $j++;
# }
#
# my $expand;
# if (length $rest) {
# $expand++;
# $expects[$j > $i ? $j+1 : $j+2]{do_complete_optname} = 0;
# $expects[$j > $i ? $j+1 : $j+2]{optval} = $opt;
# } else {
# $expects[$j > $i ? $j-1 : $j]{optname} = $opt;
# $expects[$j > $i ? $j-1 : $j]{comp_result} = [
script/_genpass-wordlist view on Meta::CPAN
#
# if ($rest =~ s/\A=//) {
# $encounter_equal_sign++;
# }
#
# if ($expand) {
# push @inswords, "=", $rest;
# $j+=2;
# }
# last EXPAND;
# }
script/_genpass-wordlist view on Meta::CPAN
# $cword += 2 if $cword >= $i;
# }
# }
#
# my $opt = $word;
# my $opthash = _expand1($opt, \%opts);
#
# if ($opthash) {
# $opt = $opthash->{name};
# $expects[$i]{optname} = $opt;
# my $nth = $seen_opts{$opt} // 0;
script/_genpass-wordlist view on Meta::CPAN
# description => <<'_',
#
#Complete path, for anything path-like. Meant to be used as backend for other
#functions like `Complete::File::complete_file` or
#`Complete::Module::complete_module`. Provides features like case-insensitive
#matching, expanding intermediate paths, and case mapping.
#
#Algorithm is to split path into path elements, then list items (using the
#supplied `list_func`) and perform filtering (using the supplied `filter_func`)
#at every level.
#
script/_genpass-wordlist view on Meta::CPAN
# (?<!\\)(?:\\\\)*\}
# )
# |
# # non-escaped brace expression, to catch * or ? or [...] inside so
# # they don't go to below pattern, because bash doesn't consider them
# # wildcards, e.g. '/{et?,us*}' expands to '/etc /usr', but '/{et?}'
# # doesn't expand at all to /etc.
# (?P<braceno>
# (?<!\\)(?:\\\\)*\{
# (?: \\\\ | \\\{ | \\\} | [^\\\{\}] )*
# (?<!\\)(?:\\\\)*\}
# )
App-Git-Workflow
view release on metacpan or search on metacpan
Added check that set data is all used (Ivan Wills)
Split test logic to own module (Ivan Wills)
Converted branch-clean (Ivan Wills)
Added test for multiple branches (Ivan Wills)
Changed the test data to be clearer, added new test with inputs (Ivan Wills)
Greatly expanded tests (Ivan Wills)
changed get_options to return true if all went ok false otherwise (Ivan Wills)
Converted jira (Ivan Wills)
Converted committers (Ivan Wills)
Converted branch-grep (Ivan Wills)
Added tests for git-tag-grep (Ivan Wills)
App-GitGot
view release on metacpan or search on metacpan
lib/App/GitGot/Command.pm view on Meta::CPAN
my ( $self ) = @_;
return $self->full_repo_list
if $self->all or ! $self->tags and ! $self->skip_tags and ! @{ $self->args };
my $list = _expand_arg_list( $self->args );
my @repos;
REPO: foreach my $repo ( $self->all_repos ) {
if ( grep { $_ eq $repo->number or $_ eq $repo->name } @$list ) {
push @repos, $repo;
lib/App/GitGot/Command.pm view on Meta::CPAN
map { $_->in_writable_format } $self->all_repos
] ,
);
}
sub _expand_arg_list {
my $args = shift;
## no critic
return [
App-GitUtils
view release on metacpan or search on metacpan
"Data::Sah::Coerce::perl::To_float::From_str::percent" : "0",
"Data::Sah::Coerce::perl::To_float::From_str::suffix_datasize" : "0",
"Data::Sah::Compiler::perl::TH::bool" : "0.914",
"Data::Sah::Compiler::perl::TH::float" : "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::Find" : "0",
"File::chdir" : "0",
"Getopt::Long" : "2.50",
"IPC::System::Options" : "0.339",
App-Gitc
view release on metacpan or search on metacpan
This is a howto document to show you the process of setting up GITC from the
beginning with RT. You can alter it for your relevant ticketing system.
This document assumes that you already have a working ticketing system, a
working install of GIT, and have git pull-ed or downloaded and expanded an
archive of gitc in the 'gitc' directory.
Begin by editing gitc.config. In this file, you will specify the various
statuses tickets will be put in by gitc, as well as the user lookup method.
App-GnuplotUtils
view release on metacpan or search on metacpan
"requires" : {
"Chart::Gnuplot" : "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",
"Desktop::Open" : "0.004",
"File::Slurper::Dash" : "0",
"File::Temp" : "0.2307",
"Log::ger" : "0.038",
App-GoogleAuthUtils
view release on metacpan or search on metacpan
},
"runtime" : {
"requires" : {
"App::QRCodeUtils" : "0",
"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::Which" : "0",
"Perinci::CmdLine::Any" : "0.154",
"Perinci::CmdLine::Lite" : "1.924",
"Sah::Schema::filename" : "0",
App-GoogleSearchUtils
view release on metacpan or search on metacpan
"Data::Sah::Compiler::perl::TH::array" : "0.914",
"Data::Sah::Compiler::perl::TH::date" : "0.914",
"Data::Sah::Compiler::perl::TH::duration" : "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",
"File::Slurper" : "0",
"File::Slurper::Dash" : "0",
"HTML::Entities" : "0",
"Log::ger" : "0.038",
App-Grepl
view release on metacpan or search on metacpan
lib/App/Grepl.pm view on Meta::CPAN
grepl --dir lib/ --pattern '(?i:XXX)' --search comments
See C<perldoc grepl> for more examples of that interface.
See L<Allowed Tokens> for what you can search through. This will be expanded
as time goes on. Patches very welcome.
=head1 METHODS
=head2 Class Methods
App-Greple-charcode
view release on metacpan or search on metacpan
lib/App/Greple/annotate.pm view on Meta::CPAN
$config->deal_with($argv,
map(optspec($_), keys %{$config}));
}
use Text::ANSI::Fold::Util qw(ansi_width);
Text::ANSI::Fold->configure(expand => 1);
*vwidth = \&ansi_width;
package # no_index
Local::Annon {
use strict;
App-Greple-frame
view release on metacpan or search on metacpan
lib/App/Greple/frame.pm view on Meta::CPAN
option --set-frame-width &set(width=$<shift>)
option --set-frame-column &set(column=$<shift>)
option --ansifold-with-width \
--pf "ansifold --expand --discard=EL --padding --prefix ' │ ' $<shift> --width=$<shift>"
option --ansifold \
--ansifold-with-width &get(fold,width)
option --frame-color-filename \
lib/App/Greple/frame.pm view on Meta::CPAN
define @COL_WIDTH @TEXT_WIDTH:@LINE_FIELD:+:@FRAME_GAP:+
define @COLUMN @COL_WIDTH:/:INT:DUP:1:GE:EXCH:1:IF
define @WIDTH DUP:@COLUMN:/:@FRAME_GAP:-:@MARGIN:-
define $FOLD \
ansifold --expand --discard=EL --padding \
--width =@WIDTH \
--prefix ' │ ' \
--boundary=$ENV{GREPLE_FRAME_PAGES_BOUNDARY} \
--linebreak=all --runin=@MARGIN --runout=@MARGIN
App-Greple-md
view release on metacpan or search on metacpan
lib/App/Greple/md.pm view on Meta::CPAN
}
# Handle + prefix: prepend current color value before load_params
# (load_params' built-in + doesn't work correctly with sub{...})
my @final_cm;
for my $entry (@opt_cm) {
my $expanded = $entry =~ s/\$\{base_name\}/$base_name/gr
=~ s/\$\{base\}/$base/gr;
if ($expanded =~ /^(\w+)=\+(.*)/) {
my ($label, $append) = ($1, $2);
my $current = $colors{$label} // '';
push @final_cm, "$label=$current$append";
} else {
push @final_cm, $expanded;
}
}
$cm = Getopt::EX::Colormap->new(
HASH => \%colors,
App-Greple-subst
view release on metacpan or search on metacpan
share/ms-style-guide.pl view on Meta::CPAN
<p>　長音記å·ã®æœ‰ç„¡ã«ã‚ˆã‚‹è¡¨è¨˜ã®æºã‚Œã¯ã€èªžæœ«ã ã‘ã§ãªãæ–‡ä¸ã«ã‚‚ã‚ã‚‹ãŒã€ä»Šå›žã®å¤‰æ›´ã¯èªžæœ«ã«é™ã‚‹ã¨ã„ã†ã€‚例ãˆã°ä»Šå›žã®å¤‰æ›´ã§ã€Œãƒãƒƒãƒ•ã‚¡ã€ã‚’「ãƒãƒƒãƒ•ã‚¡ãƒ¼ã€ã¨æ›¸ãよã†ã«ãªã£ãŸãŒã€Œã...
<p>　éŽåŽ»ã«å‡ºè·ã—ãŸè£½å“ã«ã¤ã„ã¦ã¯ã€å¾“æ¥é€šã‚Šã¨ã—ã¦ä»Šå¾Œãƒªãƒªãƒ¼ã‚¹ã™ã‚‹è£½å“やドã‚ュメントを新ルールé©ç”¨ã®å¯¾è±¡ã¨ã™ã‚‹ã€‚最åˆã®å¯¾è±¡è£½å“ã¨ãªã‚‹ã®ã¯8月ä¸ã«äºˆå®šã•ã‚Œã¦ã„ã‚‹Internet Explorer ...
<p>　åŒç¤¾ã¯7月25æ—¥ã‹ã‚‰<A HREF="http://www.microsoft.com/language/ja/jp/default.mspx">Webサイト</A>を通ã˜ã¦å¤‰æ›´å¯¾è±¡ã¨ãªã‚‹èªžå½™ãƒªã‚¹ãƒˆã‚’å«ã‚“ã スタイルガイドã®æ供を開始ã—ãŸã€‚「アウトドアã€ã€Œã‚³ãƒ³ãƒ‘...
<p>　マイクãƒã‚½ãƒ•ãƒˆè£½å“ã§ã‚‚ã€Xboxãªã©ä¸€èˆ¬å‘ã‘ã«å‡ºè·ã—ã¦ã„る製å“ã§ã¯ã€ä¾‹ãˆã°ã€Œã‚³ãƒ³ãƒˆãƒãƒ¼ãƒ©ãƒ¼ã€ã¨è¡¨è¨˜ã—ã¦ã„ãŸãŸã‚ã€ã“ã‚Œã¾ã§ã©ãŠã‚Šå¤‰æ›´ã¯ãªã„。</p>
<p>■長音記å·ä»˜ãã«å¤‰æ›´ã¨ãªã‚‹ã‚‚ã®</p>
<p>アクセサー（accessor）ã€ã‚¢ã‚¯ã‚¿ãƒ¼ï¼ˆactor）ã€ã‚¢ã‚¯ãƒ†ã‚£ãƒ™ãƒ¼ã‚¿ãƒ¼ï¼ˆactivator）ã€ã‚¢ã‚°ãƒªã‚²ãƒ¼ã‚¿ãƒ¼ï¼ˆaggregator）ã€ã‚¢ã‚»ãƒ³ãƒ–ラー（assembler）ã€ã‚¢ãƒ€ãƒ—ター（adapter）ã€ã‚¢ãƒƒãƒ—データー（updater）ã€ã‚¢...
<p>■慣例ã«åŸºã¥ã変更ã—ãªã„ã‚‚ã®</p>
<p>アウトドア（outdoor）ã€ã‚¢ã‚¯ã‚»ãƒ©ãƒ¬ãƒ¼ã‚¿ï¼ˆaccelerator）ã€ã‚¤ãƒ³ãƒ†ãƒªã‚¢ï¼ˆinterior）ã€ã‚¤ãƒ³ãƒ‰ã‚¢ï¼ˆindoor）ã€ã‚¨ã‚¯ã‚¹ãƒ†ãƒªã‚¢ï¼ˆexterior）ã€ã‚¨ãƒ³ã‚¸ãƒ‹ã‚¢ï¼ˆengineer）ã€ã‚®ã‚¢ï¼ˆgear）ã€ã‚ャリア（carrier）ã€ã‚...
<p>â– ã‚‚ã¨ã‚‚ã¨é•·éŸ³ãŒä»˜ã„ã¦ã„ã¦å¤‰æ›´ã®ãªã„ã‚‚ã®</p>
<p>アーãƒãƒ£ãƒ¼ï¼ˆarcher）ã€ã‚¢ã‚¦ã‚¿ãƒ¼ï¼ˆouter）ã€ã‚¢ã‚¦ãƒˆãƒãƒ¼ï¼ˆoutlaw）ã€ã‚¢ã‚«ãƒ‡ãƒŸãƒ¼ï¼ˆacademy）ã€ã‚¢ã‚¹ã‚ー（ASCII）ã€ã‚¢ãƒƒãƒ‘ー（upper）ã€ã‚¢ãƒ‰ãƒ™ãƒ³ãƒãƒ£ãƒ¼ï¼ˆadventure）ã€ã‚¢ãƒ‹ãƒ¥ãƒãƒ¼ï¼ˆanubar）ã€ã‚¢ãƒã‚¿...
App-Greple-tee
view release on metacpan or search on metacpan
lib/App/Greple/tee/Autoload.pm view on Meta::CPAN
=over 4
=item B<resolve>(I<name>)
Resolve a function name and return a code reference. If the name is
a short alias (like C<ansicolumn>), it is expanded to the full name
(C<App::ansicolumn::ansicolumn>). The module is loaded if necessary.
=back
=head1 ALIASES
App-Greple-under
view release on metacpan or search on metacpan
lib/App/Greple/under.pm view on Meta::CPAN
exit 0;
}
}
$Term::ANSIColor::Concise::NO_RESET_EL = 1;
Text::ANSI::Fold->configure(expand => 1);
my %marks = (
eighth => [ "\N{UPPER ONE EIGHTH BLOCK}" ],
half => [ "\N{UPPER HALF BLOCK}" ],
overline => [ "\N{OVERLINE}" ],
App-Greple-update
view release on metacpan or search on metacpan
lib/App/Greple/update.pm view on Meta::CPAN
option default \
--prologue update_initialize \
--begin update_begin
expand ++dump --all -h --color=never --no-newline --no-line-number
option --update::diff ++dump --of &update_diff
option --update::create ++dump --begin update_divert --end update_file() --update-suffix=.new
option --update::update ++dump --begin update_divert --end update_file(replace)
option --update::discard --begin update_divert --end update_file(discard)
App-Greple
view release on metacpan or search on metacpan
lib/App/Greple/dig.pm view on Meta::CPAN
##
## directories
##
expand is_repository ( -name .git -o -name .svn -o -name RCS -o -name CVS )
expand is_environment ( -name .vscode )
expand is_temporary ( -name .build -o -name _build )
expand is_hugo_gen ( -path */resources/_gen )
expand is_artifacts ( -name node_modules )
##
## files
##
expand is_dots -name .*
expand is_version -name *,v
expand is_backup ( -name *~ -o -name *.swp )
expand is_image ( -iname *.jpg -o -iname *.jpeg -o \
-iname *.gif -o -iname *.png -o \
-iname *.ico -o \
-iname *.heic -o -iname *.heif -o \
-iname *.svg -o \
-iname *.tif \
)
expand is_archive ( -iname *.tar -o -iname *.tar.gz -o -iname *.tbz -o -iname *.tgz -o \
-name *.a -o -name *.zip \
)
expand is_pdf -iname *.pdf
expand is_db ( -name *.db -o -iname *.bdb )
expand is_minimized ( -name *.min.js -o -name *.min.*.js -o \
-name *.min.css -o -name *.min.*.css )
expand is_others ( -name *.bundle -o -name *.dylib -o -name *.o -o \
-name *.fits )
option --dig -Mfind \
$<move> \
( \
App-HTMLUtils-Grep
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::code" : "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",
"File::Basename" : "0",
"File::Find::Rule" : "0",
"File::Temp" : "0.2307",
"IPC::System::Options" : "0.339",
App-HTTPTinyUtils
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::duration" : "0.914",
"Data::Sah::Compiler::perl::TH::hash" : "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",
"HTTP::Tiny" : "0.057",
"HTTP::Tiny::Cache" : "0",
"HTTP::Tiny::CustomRetry" : "0",
"HTTP::Tiny::Plugin" : "0.004",
App-I18N
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
while ( my ( $pkg, $ver ) = splice( @modules, 0, 2 ) ) {
MY::preinstall( $pkg, $ver ) or next if defined &MY::preinstall;
print "*** Installing $pkg...\n";
my $obj = CPAN::Shell->expand( Module => $pkg );
my $success = 0;
if ( $obj and _version_cmp( $obj->cpan_version, $ver ) >= 0 ) {
my $pathname = $pkg;
$pathname =~ s/::/\\W/;
App-IODCounterSimpleUtils
view release on metacpan or search on metacpan
},
"runtime" : {
"requires" : {
"Data::Sah::Compiler::perl::TH::int" : "0.907",
"Data::Sah::Compiler::perl::TH::str" : "0.907",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"IOD::Counter::Simple" : "0",
"Perinci::CmdLine::Any" : "0",
"Perinci::CmdLine::Lite" : "1.827",
"Sah::Schema::filename" : "0"
App-Ikachan
view release on metacpan or search on metacpan
inc/Pod/Markdown.pm view on Meta::CPAN
#line 1
# vim: set ts=4 sts=4 sw=4 expandtab smarttab:
#
# This file is part of Pod-Markdown
#
# This software is copyright (c) 2004 by Marcel Gruenauer.
#
inc/Pod/Markdown.pm view on Meta::CPAN
}
sub verbatim {
my ($parser, $paragraph) = @_;
# NOTE: perlpodspec says parsers should expand tabs by default
# NOTE: Apparently Pod::Parser does not. should we?
# NOTE: this might be s/^\t/" " x 8/e, but what about tabs inside the para?
# POD verbatim can start with any number of spaces (or tabs)
# markdown should be 4 spaces (or a tab)
inc/Pod/Markdown.pm view on Meta::CPAN
sub _escape_and_interpolate {
my ($parser, $paragraph, $line_num) = @_;
# escape markdown characters in text sequences except for inline code
$paragraph = join '', $parser->parse_text(
{ -expand_text => '_escape_non_code' },
$paragraph, $line_num
)->raw_text;
# interpolate the paragraph for embedded sequences
$paragraph = $parser->interpolate($paragraph, $line_num);
App-Ikaros
view release on metacpan or search on metacpan
lib/App/Ikaros.pm view on Meta::CPAN
# change directory to execute main command
chdir => 'work',
# prove version of main command
# '$prove' is expanded -I/path/to/ikaros_lib /path/to/ikaros_lib/bin/prove
prove_command => [ 'perl', '$prove', '-Ilocal/lib/perl5' ],
# forkprove version of main command
# '$forkprove' is expanded -I/path/to/ikaros_lib /path/to/ikaros_lib/bin/forkprove
forkprove_command => [ 'perl', '$forkprove', '-Ilocal/lib/perl5' ],
# commands before main command
before_commands => [
'if [ -d work ]; then rm -rf work; fi;',
App-ImageInfoUtils
view release on metacpan or search on metacpan
"runtime" : {
"requires" : {
"Data::Sah::Compiler::perl::TH::array" : "0",
"Data::Sah::Compiler::perl::TH::bool" : "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",
"Image::Info" : "0",
"Log::ger" : "0.038",
"Perinci::CmdLine::Any" : "0",
"Perinci::CmdLine::Lite" : "1.827",
App-ImageMagickUtils
view release on metacpan or search on metacpan
"requires" : {
"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",
"File::Trash::FreeDesktop" : "0.207",
"File::Which" : "0",
"IPC::System::Options" : "0.339",
"Image::Size" : "0",
App-InterpreterUtils
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",
"Interpreter::Info" : "0",
"Log::ger" : "0.038",
"Perinci::CmdLine::Any" : "0.154",
"Perinci::CmdLine::Lite" : "1.924",
App-Jawk
view release on metacpan or search on metacpan
#shift(@parts) while (@parts && $parts[0] =~ /^\s*$/); # should we strip leading blank fields?
}
if ($exe) { # if we have an exe from the command line, run it for each input line
# if they passed a line to execute, then run it for each line we read
my $exe_expanded = replace_exe_vars( $exe, \@parts ); # expand to perl script
eval "$exe_expanded"; # string eval.
warn "$prog: Error running: $exe_expanded: $@\n" if $@;
} else { # otherwise, pull out fields via numbered args.
# convert the args (things from @ARGV that don't look like command-line options)
# into fields. Must be done for each line, because we need the
# number of elements.
}
exit(0); # done
}
############################################
# my $exe_expanded = replace_exe_vars( $exe, \@fields )
sub replace_exe_vars {
my ($exe, $fieldsref) = @_;
my @fields = @$fieldsref;
# AWK MODE IS DISABLED ABOVE
( run in 1.091 second using v1.01-cache-2.11-cpan-5623c5533a1 )