view release on metacpan or  search on metacpan

lib/App/Rcsync.pm  view on Meta::CPAN

            { default => file( File::HomeDir->my_home, '.rcsync' ) }
        ],
        [ "all|a",      "sync all profiles"              ],
        [ "list|l",     "list all profiles"              ],
        [ "init|i",     "create configuration file"      ],
        [ "which|w",    "print path to profile template" ],
        [ "stdout|s",   "print to STDOUT"                ],
    );
}

sub validate_args
{
    my ($self, $opt, $args) = @_;

    if ( !$opt->{init} and ! -e $opt->{config} )
    {
        $self->usage_error("Configuration file " . $opt->{config} . " not found, aborting");
    }

    if ( !$opt->{help} and !$opt->{init} and !$opt->{all} and !$opt->{list} and !@$args )
    {