lib/App/Promulger/Command.pm

   1 package App::Promulger::Command;
   2 use strictures 1;
   3 use autodie;
   4
   5 use App::Cmd::Setup -command;
   6
   7 use Promulger::Config;
   8
   9 sub validate_args {
  10   my ($self, $opt, $args) = @_;
  11   my $cf = $self->app->global_options->{config};
  12
  13   unless(-e $cf) {
  14     die "Config file $cf doesn't exist\n";
  15   }
  16   unless(-f $cf) {
  17     die "Config file $cf not a file\n";
  18   }
  19   unless(-r $cf) {
  20     die "Config file $cf not readable\n";
  21   }
  22
  23   Promulger::Config->load_config($cf);
  24 }
  25
  26 1;