The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

THALJEF / Pinto-0.09992_01 / lib / App / Pinto / Command / manual.pm 

            

              
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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104

              
# ABSTRACT: show the full manual for a command
package App::Pinto::Command::manual;
use strict;
use warnings;
use Pod::Usage qw(pod2usage);
use base qw(App::Pinto::Command);
#-------------------------------------------------------------------------------
our $VERSION = '0.09992_01'; # VERSION
#-------------------------------------------------------------------------------
sub command_names { return qw( manual man --man ) }
#-----------------------------------------------------------------------------
sub validate_args {
    my ( $self, $opts, $args ) = @_;
    $self->usage_error("Must specify a command") if @{$args} != 1;
    return 1;
}
#-------------------------------------------------------------------------------
# This was stolen from App::Cmd::Command::help
sub execute {
    my ( $self, $opts, $args ) = @_;
    my ( $cmd, undef, undef ) = $self->app->prepare_command(@$args);
    my $class = ref $cmd;
    # An invalid command name was specified, so the fallback command class 
    # was returned.  Rather than showing the (unhelpful) manual for 
    # App::Cmd::Command::commands, we will just bail out and let App::Cmd
    # show the usual 'unrecognized command' message.
    return 1 if $class eq 'App::Cmd::Command::commands';
    ( my $relative_path = $class ) =~ s< :: ></>xmsg;
    $relative_path .= '.pm';
    my $absolute_path = $INC{$relative_path}
        or die "No manual available for $class\n";
    pod2usage( -verbose => 2, -input => $absolute_path, -exitval => 0 );
    return 1;
}
#-------------------------------------------------------------------------------
1;
__END__
=pod
=encoding UTF-8
=for :stopwords Jeffrey Ryan Thalhammer BenRifkah Fowler Jakob Voss Karen Etheridge Michael
G. Bergsten-Buret Schwern Nikolay Martynov Oleg Gashev Steffen Schwigon
Tommy Stanton Wolfgang Boris Kinkeldei Yanick Champoux brian d foy hesco
popl Däppen Cory G Watson David Steinbrunner Glenn
=head1 NAME
App::Pinto::Command::manual - show the full manual for a command
=head1 VERSION
version 0.09992_01
=head1 SYNOPSIS
  pinto manual COMMAND
=head1 DESCRIPTION
This command shows the complete user manual for a pinto COMMAND.
=head1 COMMAND ARGUMENTS
The argument to this command is the name of the command for which you would
like to see the manual.  You can also use the L<help|App::Pinto::Command::help> 
command to get a brief summary of the command.
=head1 AUTHOR
Jeffrey Ryan Thalhammer <jeff@stratopan.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2014 by Jeffrey Ryan Thalhammer.
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