]>
Commit | Line | Data |
---|---|---|
1 | package Gruntmaster::App; | |
2 | ||
3 | use 5.014000; | |
4 | use warnings; | |
5 | ||
6 | our $VERSION = '5999.000_004'; | |
7 | ||
8 | use App::Cmd::Setup '-app'; | |
9 | use Gruntmaster::Data; | |
10 | ||
11 | sub allow_any_unambiguous_abbrev () { 1 } | |
12 | sub default_command { 'commands' } # Show usage when called without arguments | |
13 | ||
14 | sub global_opt_spec { | |
15 | (['table' => 'hidden', {one_of => [ | |
16 | ['contests|ct|c' => 'Act on contests'], | |
17 | ['jobs|j' => 'Act on jobs'], | |
18 | ['problems|pb|p' => 'Act on problems'], | |
19 | ['users|us|u' => 'Act on users']]}]) | |
20 | } | |
21 | ||
22 | sub table { shift->global_options->{table} } | |
23 | ||
24 | dbinit $ENV{GRUNTMASTER_DSN} // 'dbi:Pg:'; | |
25 | ||
26 | 1; | |
27 | __END__ | |
28 | ||
29 | =encoding utf-8 | |
30 | ||
31 | =head1 NAME | |
32 | ||
33 | Gruntmaster::App - command-line interface to the Gruntmaster 6000 database | |
34 | ||
35 | =head1 SYNOPSIS | |
36 | ||
37 | use Gruntmaster::App; | |
38 | Gruntmaster::App->run; | |
39 | ||
40 | =head1 DESCRIPTION | |
41 | ||
42 | Gruntmaster::App is a command-line interface to the Gruntmaster 6000 | |
43 | database. It is the backend of the B<gm> script. | |
44 | ||
45 | =head1 SEE ALSO | |
46 | ||
47 | L<gm> | |
48 | ||
49 | =head1 AUTHOR | |
50 | ||
51 | Marius Gavrilescu, E<lt>marius@ieval.roE<gt> | |
52 | ||
53 | =head1 COPYRIGHT AND LICENSE | |
54 | ||
55 | Copyright (C) 2015 by Marius Gavrilescu | |
56 | ||
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. | |
60 | ||
61 | ||
62 | =cut |