App-ppgrep
view release on metacpan or search on metacpan
script/_ppgrep view on Meta::CPAN
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
__DATA__
Data::Section::Seekable v1
Clone/PP.pm,20,6331,0;0
Complete/Bash.pm,6376,41548,1;193
Complete/Common.pm,47951,6507,2;1443
Complete/Env.pm,54482,5656,3;1639
Complete/File.pm,60163,14154,4;1897
Complete/Getopt/Long.pm,74349,33893,5;2358
Complete/Path.pm,108267,13757,6;3289
Complete/Tcsh.pm,122049,6638,7;3706
Complete/Util.pm,128712,38793,8;3949
Data/Clean.pm,167527,16397,9;5256
Data/Clean/ForJSON.pm,183954,8992,10;5811
Data/Clean/FromJSON.pm,192977,3100,11;6104
Data/Dmp.pm,196097,12330,12;6228
Data/ModeMerge.pm,208453,26971,13;6614
Data/ModeMerge/Config.pm,235457,14454,14;7399
Data/ModeMerge/Mode/ADD.pm,249946,2657,15;7923
Data/ModeMerge/Mode/Base.pm,252639,22041,16;8043
Data/ModeMerge/Mode/CONCAT.pm,274718,1741,17;8716
Data/ModeMerge/Mode/DELETE.pm,276497,2738,18;8795
Data/ModeMerge/Mode/KEEP.pm,279271,2463,19;8925
Data/ModeMerge/Mode/NORMAL.pm,281772,2800,20;9044
Data/ModeMerge/Mode/SUBTRACT.pm,284612,3373,21;9188
Data/Sah/Normalize.pm,288015,9038,22;9331
Data/Sah/Resolve.pm,297081,7505,23;9605
Data/Sah/Util/Type.pm,304616,9456,24;9844
Function/Fallback/CoreOrPP.pm,314110,4838,25;10144
Getopt/Long/Negate/EN.pm,318981,5332,26;10335
Getopt/Long/Util.pm,324341,15221,27;10484
Lingua/EN/PluralToSingular.pm,339600,14259,28;11055
Log/ger.pm,353878,9776,29;11802
Log/ger/Format.pm,363680,1185,30;12101
Log/ger/Format/None.pm,364896,951,31;12170
Log/ger/Heavy.pm,365872,18292,32;12228
Log/ger/Layout.pm,384190,1144,33;12648
Log/ger/Output.pm,385360,1250,34;12714
Log/ger/Output/Array.pm,386642,1294,35;12789
Log/ger/Output/ArrayML.pm,387970,1563,36;12868
Log/ger/Output/Null.pm,389564,954,37;12952
Log/ger/Output/String.pm,390551,1983,38;13010
Log/ger/Plugin.pm,392560,1930,39;13108
Log/ger/Plugin/MultilevelLog.pm,394530,2144,40;13219
Log/ger/Util.pm,396698,9269,41;13319
Mo.pm,405981,591,42;13629
Mo/Golf.pm,406591,8174,43;13633
Mo/Inline.pm,414786,3471,44;13869
Mo/Moose.pm,418277,533,45;14010
Mo/Mouse.pm,418830,563,46;14015
Mo/build.pm,419413,248,47;14020
Mo/builder.pm,419683,338,48;14024
Mo/chain.pm,420041,216,49;14028
Mo/coerce.pm,420278,330,50;14032
Mo/default.pm,420630,435,51;14036
Mo/exporter.pm,421088,176,52;14040
Mo/import.pm,421285,185,53;14044
Mo/importer.pm,421493,207,54;14048
Mo/is.pm,421717,228,55;14052
Mo/nonlazy.pm,421967,129,56;14056
Mo/option.pm,422117,259,57;14060
Mo/required.pm,422399,340,58;14064
Mo/xs.pm,422756,256,59;14068
Module/Installed/Tiny.pm,423045,6725,60;14072
Perinci/Sub/Complete.pm,429802,67662,61;14295
Perinci/Sub/GetArgs/Argv.pm,497500,55172,62;16159
Perinci/Sub/GetArgs/Array.pm,552709,7479,63;17647
Perinci/Sub/Normalize.pm,560221,7303,64;17907
Perinci/Sub/Util.pm,567552,21083,65;18142
Perinci/Sub/Util/Args.pm,588668,6274,66;18903
Perinci/Sub/Util/ResObj.pm,594977,1545,67;19157
Perinci/Sub/Util/Sort.pm,596555,1957,68;19218
Regexp/Stringify.pm,598540,5418,69;19309
Sah/Schema/rinci/function_meta.pm,604000,5179,70;19506
Sah/Schema/rinci/meta.pm,609212,1842,71;19693
Sah/Schema/rinci/result_meta.pm,611094,1825,72;19778
Sah/SchemaR/rinci/function_meta.pm,612962,6027,73;19856
Sah/SchemaR/rinci/meta.pm,619023,2929,74;19914
Sah/SchemaR/rinci/result_meta.pm,621993,2277,75;19972
Sah/Schemas/Rinci.pm,624299,1280,76;20030
String/LineNumber.pm,625608,2512,77;20086
String/PerlQuote.pm,628148,3383,78;20204
String/Wildcard/Bash.pm,631563,8895,79;20329
YAML/Old.pm,640478,3321,80;20643
YAML/Old/Dumper.pm,643826,17730,81;20760
YAML/Old/Dumper/Base.pm,661588,3735,82;21337
YAML/Old/Error.pm,665349,5985,83;21448
YAML/Old/Loader.pm,671361,25286,84;21639
YAML/Old/Loader/Base.pm,696679,1235,85;22410
YAML/Old/Marshall.pm,697943,934,86;22447
YAML/Old/Mo.pm,698900,3416,87;22494
YAML/Old/Node.pm,702341,4692,88;22574
YAML/Old/Tag.pm,707057,240,89;22792
YAML/Old/Types.pm,707323,6708,90;22811
### Clone/PP.pm ###
#package Clone::PP;
#
#use 5.006;
#use strict;
#use warnings;
#use vars qw($VERSION @EXPORT_OK);
#use Exporter;
#
#$VERSION = 1.07;
#
#@EXPORT_OK = qw( clone );
#sub import { goto &Exporter::import } # lazy Exporter
#
## These methods can be temporarily overridden to work with a given class.
#use vars qw( $CloneSelfMethod $CloneInitMethod );
#$CloneSelfMethod ||= 'clone_self';
#$CloneInitMethod ||= 'clone_init';
#
## Used to detect looped networks and avoid infinite recursion.
#use vars qw( %CloneCache );
#
## Generic cloning function
#sub clone {
# my $source = shift;
#
# return undef if not defined($source);
#
# # Optional depth limit: after a given number of levels, do shallow copy.
# my $depth = shift;
# return $source if ( defined $depth and $depth -- < 1 );
#
# # Maintain a shared cache during recursive calls, then clear it at the end.
# local %CloneCache = ( undef => undef ) unless ( exists $CloneCache{undef} );
#
# return $CloneCache{ $source } if ( defined $CloneCache{ $source } );
#
# # Non-reference values are copied shallowly
# my $ref_type = ref $source or return $source;
#
# # Extract both the structure type and the class name of referent
# my $class_name;
# if ( "$source" =~ /^\Q$ref_type\E\=([A-Z]+)\(0x[0-9a-f]+\)$/ ) {
# $class_name = $ref_type;
# $ref_type = $1;
# # Some objects would prefer to clone themselves; check for clone_self().
# return $CloneCache{ $source } = $source->$CloneSelfMethod()
# if $source->can($CloneSelfMethod);
# }
script/_ppgrep view on Meta::CPAN
#
#=item * B<output_name> => I<str>
#
#Where to install the modified sub.
#
#Subroutine will be put in the specified name. If the name is not qualified with
#package name, will use caller's package. If no C<output_code> is specified, the
#base subroutine reference will be assigned here.
#
#Note that this argument is optional.
#
#=item * B<remove_args> => I<array>
#
#List of arguments to remove.
#
#=item * B<rename_args> => I<hash>
#
#Arguments to rename.
#
#=item * B<replace_args> => I<hash>
#
#Arguments to add.
#
#=item * B<summary> => I<str>
#
#Summary for the mod subroutine.
#
#=back
#
#Returns an enveloped result (an array).
#
#First element (status) is an integer containing HTTP status code
#(200 means OK, 4xx caller error, 5xx function error). Second element
#(msg) is a string containing error message, or 'OK' if status is
#200. Third element (result) is optional, the actual result. Fourth
#element (meta) is called result metadata and is optional, a hash
#that contains extra information.
#
#Return value: (hash)
#
#=head2 caller([ $n ])
#
#Just like Perl's builtin caller(), except that this one will ignore wrapper code
#in the call stack. You should use this if your code is potentially wrapped. See
#L<Perinci::Sub::Wrapper> for more details.
#
#=head2 err(...) => ARRAY
#
#Experimental.
#
#Generate an enveloped error response (see L<Rinci::function>). Can accept
#arguments in an unordered fashion, by utilizing the fact that status codes are
#always integers, messages are strings, result metadata are hashes, and previous
#error responses are arrays. Error responses also seldom contain actual result.
#Status code defaults to 500, status message will default to "FUNC failed". This
#function will also fill the information in the C<logs> result metadata.
#
#Examples:
#
# err(); # => [500, "FUNC failed", undef, {...}];
# err(404); # => [404, "FUNC failed", undef, {...}];
# err(404, "Not found"); # => [404, "Not found", ...]
# err("Not found", 404); # => [404, "Not found", ...]; # order doesn't matter
# err([404, "Prev error"]); # => [500, "FUNC failed", undef,
# # {logs=>[...], prev=>[404, "Prev error"]}]
#
#Will put C<stack_trace> in logs only if C<Carp::Always> module is loaded.
#
#=head2 warn_err(...)
#
#This is a shortcut for:
#
# $res = err(...);
# warn "ERROR $res->[0]: $res->[1]";
#
#=head2 die_err(...)
#
#This is a shortcut for:
#
# $res = err(...);
# die "ERROR $res->[0]: $res->[1]";
#
#=head1 FAQ
#
#=head2 What if I want to put result ($res->[2]) into my result with err()?
#
#You can do something like this:
#
# my $err = err(...) if ERROR_CONDITION;
# $err->[2] = SOME_RESULT;
# return $err;
#
#=head1 HOMEPAGE
#
#Please visit the project's homepage at L<https://metacpan.org/release/Perinci-Sub-Util>.
#
#=head1 SOURCE
#
#Source repository is at L<https://github.com/sharyanto/perl-Perinci-Sub-Util>.
#
#=head1 BUGS
#
#Please report any bugs or feature requests on the bugtracker website L<https://rt.cpan.org/Public/Dist/Display.html?Name=Perinci-Sub-Util>
#
#When submitting a bug or request, please include a test-file or a
#patch to an existing test-file that illustrates the bug or desired
#feature.
#
#=head1 SEE ALSO
#
#L<Perinci>
#
#=head1 AUTHOR
#
#perlancar <perlancar@cpan.org>
#
#=head1 COPYRIGHT AND LICENSE
#
#This software is copyright (c) 2017 by perlancar@cpan.org.
#
#This is free software; you can redistribute it and/or modify it under
#the same terms as the Perl 5 programming language system itself.
#
#=cut
### Perinci/Sub/Util/Args.pm ###
( run in 0.593 second using v1.01-cache-2.11-cpan-39bf76dae61 )