view release on metacpan or  search on metacpan

script/pick  view on Meta::CPAN

To contribute, you can send patches by email/via RT, or send pull requests on
GitHub.

Most of the time, you don't need to build the distribution yourself. You can
simply modify the code, then test via:

 % prove -l

If you want to build the distribution (e.g. to try to install it locally on your
system), you can install L<Dist::Zilla>,
L<Dist::Zilla::PluginBundle::Author::PERLANCAR>,
L<Pod::Weaver::PluginBundle::Author::PERLANCAR>, and sometimes one or two other
Dist::Zilla- and/or Pod::Weaver plugins. Any additional steps required beyond
that are considered a bug and can be reported to me.

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2023, 2020 by perlancar <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.

=head1 BUGS

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

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.

=cut

__DATA__
Data::Section::Seekable v1
Clone/PP.pm,20,6331,0;0
Complete/Bash.pm,6376,41736,1;193
Config/IOD/Base.pm,48139,25293,2;1496
Config/IOD/Reader.pm,73461,18862,3;2351
Data/Check/Structure.pm,92355,9787,4;2955
Data/Sah/Normalize.pm,102172,9925,5;3311
Data/Sah/Resolve.pm,112125,12880,6;3611
Data/Sah/Type/BaseType.pm,125039,6212,7;4007
Data/Sah/Type/Comparable.pm,131287,2855,8;4255
Data/Sah/Type/HasElems.pm,134176,5662,9;4359
Data/Sah/Type/all.pm,139867,2353,10;4571
Data/Sah/Type/any.pm,142249,2353,11;4659
Data/Sah/Type/array.pm,144633,2656,12;4747
Data/Sah/Type/bool.pm,147319,2331,13;4845
Data/Sah/Type/buf.pm,149679,2073,14;4934
Data/Sah/Type/cistr.pm,151783,2083,15;5013
Data/Sah/Type/code.pm,153896,2083,16;5092
Data/Sah/Type/date.pm,156009,2695,17;5171
Data/Sah/Type/datenotime.pm,158740,2109,18;5275
Data/Sah/Type/datetime.pm,160883,2099,19;5354
Data/Sah/Type/duration.pm,163016,2255,20;5433
Data/Sah/Type/float.pm,165302,2757,21;5517
Data/Sah/Type/hash.pm,168089,6613,22;5627
Data/Sah/Type/int.pm,174731,2526,23;5883
Data/Sah/Type/num.pm,177286,2150,24;5979
Data/Sah/Type/obj.pm,179465,2438,25;6060
Data/Sah/Type/re.pm,181931,2114,26;6153
Data/Sah/Type/str.pm,184074,2754,27;6233
Data/Sah/Type/undef.pm,186859,2069,28;6339
Data/Sah/Util/Role.pm,188958,8154,29;6416
Getopt/Long/EvenLess.pm,197144,11364,30;6704
Local/_pci_check_args.pm,208541,5754,31;7086
Local/_pci_clean_json.pm,214328,4414,32;7182
Log/ger.pm,218761,12245,33;7244
Perinci/CmdLine/Util/Config.pm,231045,19807,34;7616
Perinci/Result/Format/Lite.pm,250890,30164,35;8237
Perinci/Sub/Normalize.pm,281087,10098,36;9008
Role/Tiny.pm,291206,21864,37;9311
Role/Tiny/With.pm,313096,791,38;10134
Sah/Schema/rinci/function_meta.pm,313929,7232,39;10184
Scalar/Util/Numeric/PP.pm,321195,3106,40;10454
Text/Table/Sprintf.pm,324331,12529,41;10595

### 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
#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;