Commit | Line | Data |
f5baca29 |
1 | package App::Promulger::Command; |
2 | use strict; |
3 | use warnings; |
4 | |
21baaef0 |
5 | use App::Cmd::Setup -command; |
6 | |
7 | use Promulger::Config; |
8 | |
21baaef0 |
9 | sub validate_args { |
10 | my ($self, $opt, $args) = @_; |
7e9dc6a6 |
11 | my $cf = $self->app->global_options->{config}; |
21baaef0 |
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 | |
9bfd7b60 |
23 | Promulger::Config->load_config($cf); |
21baaef0 |
24 | } |
f5baca29 |
25 | |
26 | 1; |