The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
package App::RepoSync::Script;
use warnings;
use strict;
use App::RepoSync::Command::Export;
use App::RepoSync::Command::Import;
use base qw( CLI::Framework );

sub option_spec {
    [ 'help|h'      => 'show help' ],
    # [ 'verbose|v'   => 'be verbose' ],
    # [ 'db=s'        => 'path to SQLite database file' ],
}

sub usage_text { qq{
    $0 [--verbose|v]

    OPTIONS
        -h --help    : show help

    COMMANDS
        help        - show application or command-specific help
        console     - start a command console for the application
        export      - scan and export repositories
        import      - import repositories to current directory
} }

sub command_map {
    export  => 'App::RepoSync::Command::Export',
    import  => 'App::RepoSync::Command::Import',
    sync    => 'App::RepoSync::Command::Sync',
    help    => 'CLI::Framework::Command::Help',
    list    => 'CLI::Framework::Command::List',
    console => 'CLI::Framework::Command::Console',
}

sub init {
    my ($self, $opts,$command) = @_;
    return 1;
}

1;