view release on metacpan or  search on metacpan

bin/bcvi  view on Meta::CPAN

428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
    return 1;
}
 
 
sub process_command_line {
    my($class, @args) = @_;
 
    my $opt = $class->option_defaults();
    my @cfg = $class->getopt_config();
 
    local(@ARGV) = @args;
    Getopt::Long::GetOptions($opt, @cfg) or $class->die_synopsis();
 
    my $handler = $opt->{listener}
                ? $class->server_class
                : $class->client_class;
 
    $handler->new(_options => $opt)->dispatch(@ARGV);
}