view release on metacpan or  search on metacpan

bin/picasa  view on Meta::CPAN

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

sub just($) {
    my $code = shift;
    $code->();
}

sub on($$) {
    return unless $command;
    my ($test_command, $run) = @_;
    if (ref $test_command eq 'ARRAY') {
        for my $test_command (@{ $test_command }) {
            just $run if $command eq $test_command;
        }
    }

    else {
        just $run if $command eq $test_command;