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;
|
