view release on metacpan or  search on metacpan

lib/App/Ikaros/Helper.pm  view on Meta::CPAN

our @EXPORT_OK = qw/
    option_parser
    include_blacklist
    exclude_blacklist
    load_from_yaml
    uniq
/;

sub option_parser {
    my ($options) = @_;
    local @ARGV = @ARGV;
    my $parser = Getopt::Long::Parser->new(
        config => ["no_ignore_case", "pass_through"],
    );
    my %results;
    my @opt_list;
    my @opts = map {
        my ($opt_name) = $_ =~ /([0-9a-zA-Z-_]+)=?/;
        [$_, $opt_name];
    } @$options;
    push @opt_list, $_->[0] => \$results{$_->[1]} foreach @opts;