view release on metacpan or  search on metacpan

script/_pick-random-lines  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
Complete/Common.pm,48139,6507,2;1496
Complete/Env.pm,54670,5656,3;1692
Complete/File.pm,60351,15192,4;1950
Complete/Getopt/Long.pm,75575,36939,5;2447
Complete/Path.pm,112539,17195,6;3466
Complete/Sah.pm,129758,18068,7;3981
Complete/Tcsh.pm,147851,6850,8;4465
Complete/Util.pm,154726,51040,9;4721
Data/Sah/Normalize.pm,205796,9925,10;6466
Function/Fallback/CoreOrPP.pm,215759,5030,11;6766
Getopt/Long/Util.pm,220817,24293,12;6961
Log/ger.pm,245129,12245,13;7793
Log/ger/Filter.pm,257400,1226,14;8165
Log/ger/Filter/Code.pm,258657,1419,15;8232
Log/ger/Format.pm,260102,1370,16;8314
Log/ger/Format/Default.pm,261506,3323,17;8388
Log/ger/Format/MultilevelLog.pm,264869,5162,18;8506
Log/ger/Format/None.pm,270062,1346,19;8689
Log/ger/Heavy.pm,271433,18227,20;8757
Log/ger/Layout.pm,289686,1306,21;9159
Log/ger/Output.pm,291018,1435,22;9228
Log/ger/Output/Array.pm,292485,1609,23;9308
Log/ger/Output/Null.pm,294125,1350,24;9394
Log/ger/Output/String.pm,295508,2332,25;9463
Log/ger/Plugin.pm,297866,2062,26;9568
Log/ger/Plugin/MultilevelLog.pm,299968,3836,27;9683
Log/ger/Util.pm,303828,10307,28;9812
Module/Installed/Tiny.pm,314168,14112,29;10140
Perinci/Sub/Complete.pm,328312,57331,30;10565
Perinci/Sub/Util.pm,385671,24867,31;12193
Perinci/Sub/Util/Args.pm,410571,7054,32;13060
Perinci/Sub/Util/ResObj.pm,417660,2332,33;13335
Perinci/Sub/Util/Sort.pm,420025,2712,34;13418
String/Wildcard/Bash.pm,422769,15067,35;13529

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