standardize on strictures+autodie+Test::Most where applicable

[p5sagit/Promulger.git] / lib / App / Promulger / Command.pm

diff --git a/lib/App/Promulger/Command.pm b/lib/App/Promulger/Command.pm
index a46961a..9d377de 100644 (file)
--- a/lib/App/Promulger/Command.pm
+++ b/lib/App/Promulger/Command.pm
@@ -1,6 +1,26 @@
 package App::Promulger::Command;
-use strict;
-use warnings;
+use strictures 1;
+use autodie;
 
+use App::Cmd::Setup -command;
+
+use Promulger::Config;
+
+sub validate_args {
+  my ($self, $opt, $args) = @_;
+  my $cf = $self->app->global_options->{config};
+
+  unless(-e $cf) {
+    die "Config file $cf doesn't exist\n";
+  }
+  unless(-f $cf) {
+    die "Config file $cf not a file\n";
+  }
+  unless(-r $cf) {
+    die "Config file $cf not readable\n";
+  }
+
+  Promulger::Config->load_config($cf);
+}
 
 1;