view release on metacpan or  search on metacpan

lib/App/optex/glob.pm  view on Meta::CPAN

	if    (not defined $b) { "$a"   }
	elsif ($b =~ /^\d+$/)  { "$a=i" }
	else                   { "$a=s" }
    } %{+shift};
}

sub finalize {
    my($mod, $argv) = @_;
    my $i = (first { $argv->[$_] eq '--' } keys @$argv) // return;
    splice @$argv, $i, 1; # remove '--'
    local @ARGV = splice @$argv, 0, $i or return;

    use Getopt::Long qw(GetOptionsFromArray);
    Getopt::Long::Configure qw(bundling);
    GetOptions \%opt, hash_to_spec \%opt or die "Option parse error.\n";

    push @{$opt{include}}, splice @ARGV;
    return if @{$opt{include}} + @{$opt{exclude}} == 0;

    my(@include_re, @exclude_re);
    for ( [ \@include_re, $opt{include} ] ,