# ABSTRACT: zsh completion for your MooseX::App applications
use strict;
use warnings;
package MooseX::App::Plugin::ZshCompletion;
use 5.010;
our $VERSION = '0.003'; # VERSION
use namespace::autoclean;
use Moose::Role;
sub plugin_metaroles {
my ($self,$class) = @_;
return {
class => ['MooseX::App::Plugin::ZshCompletion::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::ZshCompletion::Command')) {
return $return->zsh_completion($self);
}
return $return;
};
1;
__END__
=encoding utf8
=head1 NAME
MooseX::App::Plugin::ZshCompletion - zsh completion for your MooseX::App applications
=head1 SYNOPSIS
In your base class:
package MyApp;
use MooseX::App qw/ ZshCompletion /;
In your .zshrc:
fpath=('/path/to/completion-dir' $fpath)
In your shell
zsh% myapp zsh_completion > /path/to/completion-dir/_myapp
zsh% chmod u+x /path/to/completion-dir/_myapp
zsh% exec zsh
=head1 DESCRIPTION
This plugin generates a zsh completion definition for your application.
Completion works for subcommands, parameters and options. If an option or
parameter is declared as an C<enum> with L<Moose::Meta::TypeConstraint> you
will get a completion for the enum values.
Option completions will show its descriptions also.
The default completion type for parameters is C<_files>
In the examples directory you find C<moosex-app-zsh>.
% moosex-app-zsh <TAB>
bash_completion fetch_mail help lala zsh_completion
% moosex-app-zsh fetch_mail server.example -<TAB>
--dir -- Output 'dir'
--max -- Maximum number of emails to fetch
--servertype -- Mailserver type: IMAP or POP3
--usage --help -h -- Prints this usage information.
--user -- User
--verbose -- be verbose
% moosex-app-zsh fetch_mail server.example --servertype <TAB>
IMAP POP3
=head1 METHODS
=over 4
=item plugin_metaroles
=back
=head1 SEE ALSO
L<MooseX::App::Plugin::BashCompletion>
=head1 LICENSE
COPYRIGHT AND LICENSE
Copyright (C) 2015 by Tina Mueller
This library is free software; you can redistribute it and/or modify it under
the same terms as Perl itself. The full text of the license can be found
in the LICENSE file.
=cut