App-metasyn

 view release on metacpan or  search on metacpan

script/_metasyn  view on Meta::CPAN


=head1 BUGS

Please report any bugs or feature requests on the bugtracker website L<https://rt.cpan.org/Public/Dist/Display.html?Name=App-metasyn>

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 AUTHOR

perlancar <perlancar@cpan.org>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2021, 2019, 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

__DATA__
Data::Section::Seekable v1
Clone/PP.pm,20,6331,0;0
Complete/Bash.pm,6376,39632,1;193
Complete/Common.pm,46035,6507,2;1432
Complete/Env.pm,52566,5656,3;1628
Complete/File.pm,58247,14391,4;1886
Complete/Getopt/Long.pm,72670,36047,5;2353
Complete/Path.pm,108742,17195,6;3338
Complete/Sah.pm,125961,16459,7;3853
Complete/Tcsh.pm,142445,6850,8;4298
Complete/Util.pm,149320,40883,9;4554
Data/Clean.pm,190225,17013,10;5972
Data/Clean/ForJSON.pm,207268,8992,11;6544
Data/Clean/FromJSON.pm,216291,3100,12;6837
Data/Dmp.pm,219411,14131,13;6961
Data/ModeMerge.pm,233568,26971,14;7419
Data/ModeMerge/Config.pm,260572,14454,15;8204
Data/ModeMerge/Mode/ADD.pm,275061,2657,16;8728
Data/ModeMerge/Mode/Base.pm,277754,22041,17;8848
Data/ModeMerge/Mode/CONCAT.pm,299833,1741,18;9521
Data/ModeMerge/Mode/DELETE.pm,301612,2738,19;9600
Data/ModeMerge/Mode/KEEP.pm,304386,2463,20;9730
Data/ModeMerge/Mode/NORMAL.pm,306887,2800,21;9849
Data/ModeMerge/Mode/SUBTRACT.pm,309727,3373,22;9993
Data/Sah/Normalize.pm,313130,9038,23;10136
Data/Sah/Resolve.pm,322196,7511,24;10410
Data/Sah/Util/Type.pm,329737,9456,25;10649
Function/Fallback/CoreOrPP.pm,339231,5030,26;10949
Getopt/Long/Negate/EN.pm,344294,5332,27;11144
Getopt/Long/Util.pm,349654,17210,28;11293
Lingua/EN/PluralToSingular.pm,366902,14259,29;11927
Log/ger.pm,381180,11284,30;12674
Log/ger/Filter.pm,392490,1155,31;13019
Log/ger/Filter/Code.pm,393676,1401,32;13085
Log/ger/Format.pm,395103,1299,33;13167
Log/ger/Format/Default.pm,396436,3305,34;13240
Log/ger/Format/MultilevelLog.pm,399781,5142,35;13358
Log/ger/Format/None.pm,404954,1275,36;13541
Log/ger/Heavy.pm,406254,18150,37;13608
Log/ger/Layout.pm,424430,1235,38;14009
Log/ger/Output.pm,425691,1364,39;14077
Log/ger/Output/Array.pm,427087,1591,40;14156
Log/ger/Output/Null.pm,428709,1279,41;14242
Log/ger/Output/String.pm,430021,2311,42;14310
Log/ger/Plugin.pm,432358,2044,43;14415
Log/ger/Plugin/MultilevelLog.pm,434442,3818,44;14530
Log/ger/Util.pm,438284,10237,45;14659
Mo.pm,448535,591,46;14987
Mo/Golf.pm,449145,8174,47;14991
Mo/Inline.pm,457340,3471,48;15227
Mo/Moose.pm,460831,533,49;15368
Mo/Mouse.pm,461384,563,50;15373
Mo/build.pm,461967,248,51;15378
Mo/builder.pm,462237,338,52;15382
Mo/chain.pm,462595,216,53;15386
Mo/coerce.pm,462832,330,54;15390
Mo/default.pm,463184,435,55;15394
Mo/exporter.pm,463642,176,56;15398
Mo/import.pm,463839,185,57;15402
Mo/importer.pm,464047,207,58;15406
Mo/is.pm,464271,228,59;15410
Mo/nonlazy.pm,464521,129,60;15414
Mo/option.pm,464671,259,61;15418
Mo/required.pm,464953,340,62;15422
Mo/xs.pm,465310,256,63;15426
Module/Installed/Tiny.pm,465599,7196,64;15430
Perinci/Sub/Complete.pm,472827,56390,65;15665
Perinci/Sub/GetArgs/Argv.pm,529253,55430,66;17270
Perinci/Sub/GetArgs/Array.pm,584720,7479,67;18763
Perinci/Sub/Normalize.pm,592232,7303,68;19023
Perinci/Sub/Util.pm,599563,22252,69;19258
Perinci/Sub/Util/Args.pm,621848,6306,70;20061
Perinci/Sub/Util/ResObj.pm,628189,1571,71;20315
Perinci/Sub/Util/Sort.pm,629793,1983,72;20376
Regexp/Stringify.pm,631804,5418,73;20467
Sah/Schema/rinci/function_meta.pm,637264,7198,74;20664
Sah/Schema/rinci/meta.pm,644495,3699,75;20932
Sah/Schema/rinci/result_meta.pm,648234,3586,76;21096
Sah/SchemaR/rinci/function_meta.pm,651863,6270,77;21251
Sah/SchemaR/rinci/meta.pm,658167,3012,78;21309
Sah/SchemaR/rinci/result_meta.pm,661220,2346,79;21367
Sah/Schemas/Rinci.pm,663595,1286,80;21425
String/LineNumber.pm,664910,2512,81;21481
String/PerlQuote.pm,667450,3383,82;21599
String/Wildcard/Bash.pm,670865,9637,83;21724
YAML/Old.pm,680522,3321,84;22054
YAML/Old/Dumper.pm,683870,17730,85;22171
YAML/Old/Dumper/Base.pm,701632,3735,86;22748
YAML/Old/Error.pm,705393,5985,87;22859
YAML/Old/Loader.pm,711405,25286,88;23050
YAML/Old/Loader/Base.pm,736723,1235,89;23821
YAML/Old/Marshall.pm,737987,934,90;23858
YAML/Old/Mo.pm,738944,3416,91;23905
YAML/Old/Node.pm,742385,4692,92;23985
YAML/Old/Tag.pm,747101,240,93;24203
YAML/Old/Types.pm,747367,6708,94;24222

### Clone/PP.pm ###
#package Clone::PP;
#
#use 5.006;
#use strict;
#use warnings;
#use vars qw($VERSION @EXPORT_OK);
#use Exporter;
#
#$VERSION = 1.08;
#
#@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

script/_metasyn  view on Meta::CPAN

#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.
#
#=item * B<wrap_code> => I<code>
#
#Wrapper to generate the modified sub.
#
#The modified sub will become:
#
# sub { wrap_code->(base_code, @_) }
#
#Alternatively you can use C<output_code>. If both are not specified, will use
#C<base_code> (which will then be required) as the modified subroutine's code.
#
#
#=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 (payload) 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/perlancar/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) 2020, 2017, 2016, 2015, 2014 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 1.951 second using v1.01-cache-2.11-cpan-39bf76dae61 )