view release on metacpan or  search on metacpan

bin/picasa  view on Meta::CPAN

    return unless @ARGV;
    for my $i ( 0 .. $#ARGV) {
        last if $ARGV[$i] eq '--';
        if ($ARGV[$i] !~ /^-/) {
            return splice @ARGV, $i, 1;
        }
    }
}

our $command;
sub dispatch(&) {
    my ($code) = @_;
    
    return sub {
        local @ARGV = @ARGV;
        local $command = next_command;
        $code->();
    };
}

sub run(@) {