view release on metacpan or  search on metacpan

dan/agent/argv/unzipdir  view on Meta::CPAN

#!# perl: agent/argv/unzipdir
use strict;
use warnings;

use Getopt::Long;

return sub
{
    local $/;
    my %o;

    Getopt::Long::GetOptionsFromArray( \@_, \%o, qw( uuid=s chmod=s chown=s delete ) );

    $o{path} = \@_;

    return \%o;
};