view release on metacpan or  search on metacpan

bin/_after  view on Meta::CPAN

    );
}

# display result
if    ($shell eq "bash") { print Complete::Bash::format_completion($compres, {word=>$words->[$cword]}) }
elsif ($shell eq "tcsh") { print Complete::Tcsh::format_completion($compres) }

=pod

=encoding UTF-8

=head1 NAME

_after - Completer script for after

=head1 VERSION

This document describes version 0.04 of Perinci::CmdLine::Base (from Perl distribution App-after), released on 2016-05-21.

=head1 HOMEPAGE

Please visit the project's homepage at L<https://metacpan.org/release/App-after>.

=head1 SOURCE

Source repository is at L<https://github.com/perlancar/perl-App-after>.

=head1 BUGS

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

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) 2016 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,17428,1;71
Complete/Common.pm,19384,945,2;596
Complete/Env.pm,20353,1269,3;635
Complete/File.pm,21647,6044,4;695
Complete/Getopt/Long.pm,27723,18495,5;897
Complete/Path.pm,46243,7974,6;1426
Complete/Tcsh.pm,54242,2757,7;1687
Complete/Util.pm,57024,14203,8;1792
Data/Sah/Normalize.pm,71257,6073,9;2281
Data/Sah/Util/Type.pm,77360,3213,10;2462
Function/Fallback/CoreOrPP.pm,80611,1694,11;2582
Getopt/Long/Negate/EN.pm,82338,1797,12;2671
Getopt/Long/Util.pm,84163,7724,13;2723
Lingua/EN/PluralToSingular.pm,91925,5931,14;3008
Log/Any.pm,97875,2421,15;3420
Log/Any/Adapter.pm,100323,367,16;3526
Log/Any/Adapter/Base.pm,100722,772,17;3555
Log/Any/Adapter/File.pm,101526,1925,18;3592
Log/Any/Adapter/Null.pm,103483,382,19;3659
Log/Any/Adapter/Stderr.pm,103899,1229,20;3682
Log/Any/Adapter/Stdout.pm,105162,1229,21;3732
Log/Any/Adapter/Test.pm,106423,4762,22;3782
Log/Any/Adapter/Util.pm,111217,3230,23;3979
Log/Any/IfLOG.pm,114472,1357,24;4136
Log/Any/Manager.pm,115856,5072,25;4201
Log/Any/Proxy.pm,120953,2436,26;4390
Log/Any/Proxy/Test.pm,123419,499,27;4476
Log/Any/Test.pm,123942,275,28;4507
Module/Path/More.pm,124245,4811,29;4523
Perinci/Sub/Complete.pm,129088,35516,30;4716
Perinci/Sub/GetArgs/Argv.pm,164640,34951,31;5642
Perinci/Sub/GetArgs/Array.pm,199628,3345,32;6593
Perinci/Sub/Normalize.pm,203006,4885,33;6715
Perinci/Sub/Util.pm,207919,12303,34;6867
Perinci/Sub/Util/ResObj.pm,220257,243,35;7305
Perinci/Sub/Util/Sort.pm,220533,463,36;7320
Rinci.pm,221013,64,37;7349
Sah/Schema/rinci/function_meta.pm,221119,3589,38;7357
Sah/Schema/rinci/meta.pm,224741,681,39;7494
Sah/Schema/rinci/result_meta.pm,225462,609,40;7537
String/Wildcard/Bash.pm,226103,2159,41;7572

### 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';
#$CloneInitMethod ||= 'clone_init';
#
#use vars qw( %CloneCache );
#
#sub clone {
#  my $source = shift;
#
#  return undef if not defined($source);
#  
#  my $depth = shift;
#  return $source if ( defined $depth and $depth -- < 1 );
#