view release on metacpan or  search on metacpan

bin/picasa  view on Meta::CPAN

            return splice @ARGV, $i, 1;
        }
    }
}

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

sub run(@) {
    my ($command, @args) = @_;
    return sub {
        exec("$FindBin::Bin/picasa-".$command, @args, @ARGV);
    };