1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
# ============================================================================
package MooseX::App::Plugin::BashCompletion;
# ============================================================================
use 5.010;
use utf8;
use namespace::autoclean;
use Moose::Role;
sub plugin_metaroles {
my ($self,$class) = @_;
return {
class => ['MooseX::App::Plugin::BashCompletion::Meta::Class'],
}
}
around 'initialize_command_class' => sub {
my $orig = shift;
my $self = shift;
my $return = $self->$orig(@_);
if (blessed $return
&& $return->isa('MooseX::App::Plugin::BashCompletion::Command')) {
return $return->bash_completion($self);
}
return $return;
};
1;
__END__
=encoding utf8
=head1 NAME
MooseX::App::Plugin::BashCompletion - Bash completion for your MooseX::App applications
=head1 SYNOPSIS
In your base class:
package MyApp;
use MooseX::App qw(BashCompletion);
In your shell
bash$ myapp bash_completion > myapp-complete.sh
bash$ source myapp-complete.sh
=head1 DESCRIPTION
This plugin generates a bash completion definition for your application.
=head1 SEE ALSO
L<MooseX::App::Cmd::Command::BashComplete>
=cut
|
