lib/Gruntmaster/App.pm

   1 package Gruntmaster::App;
   2
   3 use 5.014000;
   4 use warnings;
   5
   6 our $VERSION = '5999.000_015';
   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 sub run {
  25         dbinit $ENV{GRUNTMASTER_DSN} // 'dbi:Pg:';
  26         shift->SUPER::run(@_);
  27 }
  28
  29 1;
  30 __END__
  31
  32 =encoding utf-8
  33
  34 =head1 NAME
  35
  36 Gruntmaster::App - command-line interface to the Gruntmaster 6000 database
  37
  38 =head1 SYNOPSIS
  39
  40   use Gruntmaster::App;
  41   Gruntmaster::App->run;
  42
  43 =head1 DESCRIPTION
  44
  45 Gruntmaster::App is a command-line interface to the Gruntmaster 6000
  46 database. It is the backend of the B<gm> script.
  47
  48 =head1 SEE ALSO
  49
  50 L<gm>
  51
  52 =head1 AUTHOR
  53
  54 Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
  55
  56 =head1 COPYRIGHT AND LICENSE
  57
  58 Copyright (C) 2014-2015 by Marius Gavrilescu
  59
  60 This library is free software; you can redistribute it and/or modify
  61 it under the same terms as Perl itself, either Perl version 5.20.1 or,
  62 at your option, any later version of Perl 5 you may have available.
  63
  64
  65 =cut