]>
iEval git - gruntmaster-data.git/blob - lib/Gruntmaster/App/Command.pm
23396c68fe4c58a819f61cc1fcdc5a5a6a530465
1 package Gruntmaster
::App
::Command
;
8 our $VERSION = '5999.000_004';
10 use parent qw
/App::Cmd::Command/;
15 my ($file) = (ref $self) =~ s
,::,/,gr
;
17 open my $fh, '>', \
$usage; ## no critic (RequireCheckedOpen)
18 pod2usage
(-input
=> $INC{"$file.pm"}, -output
=> $fh, -exitval
=> 'NOEXIT', -verbose
=> 99, -sections
=> [qw
/SYNOPSIS DESCRIPTION/]);
19 close $fh; ## no critic (RequireCheckedClose)
20 $usage =~ s/Usage:/Usage examples:/;
32 Gruntmaster::App::Command - Base class for gm commands
36 package Gruntmaster::App::Command::foo;
37 use Gruntmaster::App '-command';
41 Gruntmaster::App::Command is the base class of all gm commands. Its
42 only role is to extract a command's documentation from its POD by
43 overriding the description method to use L<Pod::Usage>.
47 L<Gruntmaster::App>, L<gm>
51 Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
53 =head1 COPYRIGHT AND LICENSE
55 Copyright (C) 2014-2015 by Marius Gavrilescu
57 This library is free software; you can redistribute it and/or modify
58 it under the same terms as Perl itself, either Perl version 5.20.1 or,
59 at your option, any later version of Perl 5 you may have available.
This page took 0.044135 seconds and 4 git commands to generate.