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
|
# ============================================================================
package MooseX::App::Plugin::Typo;
# ============================================================================
use 5.010;
use utf8;
use namespace::autoclean;
use Moose::Role;
sub plugin_metaroles {
my ($self,$class) = @_;
return {
class => ['MooseX::App::Plugin::Typo::Meta::Class'],
}
}
1;
__END__
=encoding utf8
=head1 NAME
MooseX::App::Plugin::Typo - Handle typos in command names
=head1 SYNOPSIS
In your base class:
package MyApp;
use MooseX::App qw(Typo);
In your shell
bash$ myapp pusl
Ambiguous command 'pusl'
Which command did you mean?
* push
* pull
=head1 DESCRIPTION
This plugin tries to handle typos in command names
=cut
|
