lib/Gruntmaster/App.pm

   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) 2014-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