view release on metacpan or  search on metacpan

t/all.t  view on Meta::CPAN

use strict;
use warnings;

use Carp qw(confess);
use Test::More;

# arbitrary Getopt::Long option name
# (parsing depends on the params passed to GetModule, not the option name)
use constant OPTION_NAME => 'module';

sub pp($) { Getopt::Module::_pp($_[0]) }

sub _qw_to_split($) {
    my $evals = shift;
    my $ref = ref($evals);

    $evals = [ $evals ] unless ($ref);

    my $spaces_to_commas = sub($) {
        join(',', split(qr{\s+}, shift));
    };