Skip to content
This repository
Fetching contributors…

Cannot retrieve contributors at this time

executable file 29 lines (22 sloc) 0.537 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
#!/usr/bin/env perl

use strict;
use warnings;

use App::Ack::ConfigLoader ();
use Getopt::Long;

my $option_coverage_file = 'opts.coverage';

my @extra_options = (
    'type-add=s',
    'type-set=s',
    'dump',
);

my $fh;
open $fh, '>>', $option_coverage_file or die $!;

my $arg_spec = App::Ack::ConfigLoader::get_arg_spec({}, undef);
foreach my $k (keys %{$arg_spec}, @extra_options) {
    $arg_spec->{$k} = sub {
        print { $fh } "$k\n";
    };
}
Getopt::Long::Configure('pass_through');
GetOptions(%{$arg_spec});

close $fh;
Something went wrong with that request. Please try again.