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
|
# ============================================================================
package MooseX::App::Plugin::Man;
# ============================================================================
use 5.010;
use utf8;
use namespace::autoclean;
use Moose::Role;
sub plugin_metaroles {
my ($self,$class) = @_;
return {
class => ['MooseX::App::Plugin::Man::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::Man::Command')) {
return $return->man($self);
}
return $return;
};
1;
__END__
=encoding utf8
=head1 NAME
MooseX::App::Plugin::Man - Adds a command to display the full manual
=head1 SYNOPSIS
In your base class:
package MyApp;
use MooseX::App qw(Man);
In your shell
bash$ myapp man somecommand
=head1 DESCRIPTION
This plugin adds a command to display the full manpage/perldoc of your
application.
=cut
|
