0.24 results from the CPAN

App-finddo

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

__DATA__
Data::Section::Seekable v1
Clone/PP.pm,20,1884,0;0
Complete/Bash.pm,1929,17459,1;71
Complete/Common.pm,19415,945,2;596
Complete/Env.pm,20384,2999,3;635
Complete/File.pm,23408,8536,4;760
Complete/Getopt/Long.pm,31976,18507,5;1033
Complete/Path.pm,50508,7961,6;1587
Complete/Tcsh.pm,58494,2757,7;1847
Complete/Util.pm,61276,21457,8;1952
Data/Clean.pm,82755,7950,9;2696
Data/Clean/FromJSON.pm,90736,536,10;2968
Data/Clean/JSON.pm,91299,1140,11;3000
Data/Dmp.pm,92459,4396,12;3052
Data/ModeMerge.pm,96881,10593,13;3236
Data/ModeMerge/Config.pm,107507,2140,14;3554
Data/ModeMerge/Mode/ADD.pm,109682,1373,15;3625
Data/ModeMerge/Mode/Base.pm,111091,16705,16;3694
Data/ModeMerge/Mode/CONCAT.pm,127834,442,17;4224
Data/ModeMerge/Mode/DELETE.pm,128314,1218,18;4252
Data/ModeMerge/Mode/KEEP.pm,129568,1174,19;4327
Data/ModeMerge/Mode/NORMAL.pm,130780,1501,20;4395
Data/ModeMerge/Mode/SUBTRACT.pm,132321,2064,21;4488
Data/Sah/Normalize.pm,134415,6073,22;4580
Data/Sah/Resolve.pm,140516,3692,23;4761
Data/Sah/Util/Type.pm,144238,3406,24;4869
Function/Fallback/CoreOrPP.pm,147682,1761,25;4998
Getopt/Long/Negate/EN.pm,149476,1797,26;5089
Getopt/Long/Util.pm,151301,9133,27;5141
Lingua/EN/PluralToSingular.pm,160472,5931,28;5474
Log/ger.pm,166422,3553,29;5886
Log/ger/Format.pm,170001,184,30;6023
Log/ger/Format/None.pm,170216,281,31;6036
Log/ger/Heavy.pm,170522,14829,32;6055
Log/ger/Layout.pm,185377,197,33;6394
Log/ger/Output.pm,185600,195,34;6407
Log/ger/Output/Array.pm,185827,565,35;6420
Log/ger/Output/ArrayML.pm,186426,685,36;6452
Log/ger/Output/Null.pm,187142,328,37;6486
Log/ger/Output/String.pm,187503,981,38;6506
Log/ger/Plugin.pm,188510,1096,39;6547
Log/ger/Plugin/MultilevelLog.pm,189646,552,40;6607
Log/ger/Util.pm,190222,8411,41;6637
Mo.pm,198647,591,42;6911
Mo/Golf.pm,199257,7519,43;6915
Mo/Inline.pm,206797,2047,44;7132
Mo/Moose.pm,208864,533,45;7218
Mo/Mouse.pm,209417,563,46;7223
Mo/build.pm,210000,248,47;7228
Mo/builder.pm,210270,338,48;7232
Mo/chain.pm,210628,216,49;7236
Mo/coerce.pm,210865,330,50;7240
Mo/default.pm,211217,435,51;7244
Mo/exporter.pm,211675,176,52;7248
Mo/import.pm,211872,185,53;7252
Mo/importer.pm,212080,207,54;7256
Mo/is.pm,212304,228,55;7260
Mo/nonlazy.pm,212554,129,56;7264
Mo/option.pm,212704,259,57;7268
Mo/required.pm,212986,340,58;7272
Mo/xs.pm,213343,256,59;7276
Module/Installed/Tiny.pm,213632,3030,60;7280
Perinci/Sub/Complete.pm,216694,45843,61;7397
Perinci/Sub/GetArgs/Argv.pm,262573,38488,62;8608
Perinci/Sub/GetArgs/Array.pm,301098,3800,63;9668
Perinci/Sub/Normalize.pm,304931,4885,64;9799
Perinci/Sub/Util.pm,309844,12303,65;9951
Perinci/Sub/Util/Args.pm,322180,3131,66;10389
Perinci/Sub/Util/ResObj.pm,325346,243,67;10506
Perinci/Sub/Util/Sort.pm,325622,463,68;10521
Regexp/Stringify.pm,326113,2473,69;10550
Sah/Schema/rinci/function_meta.pm,328628,3632,70;10649
Sah/Schema/rinci/meta.pm,332293,683,71;10787
Sah/Schema/rinci/result_meta.pm,333016,611,72;10830
Sah/SchemaR/rinci/function_meta.pm,333670,7833,73;10865
Sah/SchemaR/rinci/meta.pm,341537,1990,74;11036
Sah/SchemaR/rinci/result_meta.pm,343568,960,75;11095
Sah/Schemas/Rinci.pm,344557,108,76;11136
String/LineNumber.pm,344694,859,77;11145
String/PerlQuote.pm,345581,890,78;11185
String/Wildcard/Bash.pm,346503,2159,79;11235
YAML/Old.pm,348682,2533,80;11323
YAML/Old/Dumper.pm,351242,14625,81;11424
YAML/Old/Dumper/Base.pm,365899,3367,82;11928
YAML/Old/Error.pm,369292,5986,83;12031
YAML/Old/Loader.pm,375305,21662,84;12222
YAML/Old/Loader/Base.pm,396999,1025,85;12921
YAML/Old/Marshall.pm,398053,939,86;12954
YAML/Old/Mo.pm,399015,2688,87;13001
YAML/Old/Node.pm,401728,4412,88;13073
YAML/Old/Tag.pm,406164,240,89;13291
YAML/Old/Types.pm,406430,5701,90;13310

### Clone/PP.pm ###
#package Clone::PP;
#
#use 5.006;
#use strict;
#use warnings;
#use vars qw($VERSION @EXPORT_OK);
#use Exporter;
#
#$VERSION = 1.06;
#
#@EXPORT_OK = qw( clone );
#sub import { goto &Exporter::import } 
#
#use vars qw( $CloneSelfMethod $CloneInitMethod );
#$CloneSelfMethod ||= 'clone_self';

script/_finddo view on Meta::CPAN

#            $fres = {words=>$compres, esc_mode=>'option'};
#            goto RETURN_RES;
#        }
#    }
#
#    {
#        last unless exists($exp->{optval});
#        my $opt = $exp->{optval};
#        my $opthash = $opts{$opt} if $opt;
#        my %compargs = (
#            %$extras,
#            type=>'optval', words=>\@words, cword=>$args{cword},
#            word=>$word, opt=>$opt, ospec=>$opthash->{ospec},
#            argpos=>undef, nth=>$exp->{nth}, seen_opts=>\%seen_opts,
#            parsed_opts=>\%parsed_opts,
#        );
#        my $compres;
#        if ($comp) {
#            $compres = $comp->(%compargs);
#            Complete::Util::modify_answer(answer=>$compres, prefix=>$exp->{prefix})
#                if defined $exp->{prefix};
#        }
#        if (!$compres || !$comp) {
#            $compres = _default_completion(%compargs);
#            Complete::Util::modify_answer(answer=>$compres, prefix=>$exp->{prefix})
#                if defined $exp->{prefix};
#        }
#        push @answers, $compres;
#    }
#
#    {
#        last unless exists($exp->{arg});
#        my %compargs = (
#            %$extras,
#            type=>'arg', words=>\@words, cword=>$args{cword},
#            word=>$word, opt=>undef, ospec=>undef,
#            argpos=>$exp->{argpos}, seen_opts=>\%seen_opts,
#            parsed_opts=>\%parsed_opts,
#        );
#        my $compres = $comp->(%compargs) if $comp;
#        if (!defined $compres) {
#            $compres = _default_completion(%compargs);
#        }
#        push @answers, $compres;
#    }
#
#    $fres = Complete::Util::combine_answers(@answers) // [];
#
#  RETURN_RES:
#    $fres;
#}
#
#1;
#
#__END__
#
### Complete/Path.pm ###
#package Complete::Path;
#
#our $DATE = '2017-07-03'; 
#our $VERSION = '0.24'; 
#
#use 5.010001;
#use strict;
#use warnings;
#
#use Complete::Common qw(:all);
#
#our $COMPLETE_PATH_TRACE = $ENV{COMPLETE_PATH_TRACE} // 0;
#
#require Exporter;
#our @ISA = qw(Exporter);
#our @EXPORT_OK = qw(
#                       complete_path
#               );
#
#sub _dig_leaf {
#    my ($p, $list_func, $is_dir_func, $filter_func, $path_sep) = @_;
#    my $num_dirs;
#    my $listres = $list_func->($p, '', 0);
#    return $p unless ref($listres) eq 'ARRAY' && @$listres;
#    my @candidates;
#  L1:
#    for my $e (@$listres) {
#        my $p2 = $p =~ m!\Q$path_sep\E\z! ? "$p$e" : "$p$path_sep$e";
#        {
#            local $_ = $p2; 
#            next L1 if $filter_func && !$filter_func->($p2);
#        }
#        push @candidates, $p2;
#    }
#    return $p unless @candidates == 1;
#    my $p2 = $candidates[0];
#    my $is_dir;
#    if ($p2 =~ m!\Q$path_sep\E\z!) {
#        $is_dir++;
#    } else {
#        $is_dir = $is_dir_func && $is_dir_func->($p2);
#    }
#    return _dig_leaf($p2, $list_func, $is_dir_func, $filter_func, $path_sep)
#        if $is_dir;
#    $p2;
#}
#
#our %SPEC;
#
#$SPEC{complete_path} = {
#    v => 1.1,
#    summary => 'Complete path',
#    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.
#
#_

( run in 1.074 second using v1.01-cache-2.11-cpan-39bf76dae61 )