package OrePAN2::CLI::Indexer;
use strict;
use warnings;
use utf8;
use Getopt::Long ();
use OrePAN2;
use OrePAN2::Indexer;
use Pod::Usage;
sub new {
my $class = shift;
bless {}, $class;
}
sub run {
my ( $self, @args ) = @_;
my $version;
my $text;
my $metacpan;
my $simple = 0;
my $p = Getopt::Long::Parser->new(
config => [qw(posix_default no_ignore_case auto_help)] );
$p->getoptionsfromarray(
\@args => (
'metacpan!' => \$metacpan,
'version!' => \$version,
'text!' => \$text,
'simple!' => \$simple,
)
);
if ($version) {
print "orepan2: $OrePAN2::VERSION\n";
}
my $directory = shift @args or pod2usage(
-input => $0,
);
my $orepan = OrePAN2::Indexer->new(
directory => $directory,
metacpan => $metacpan,
simple => $simple,
);
$orepan->make_index(
no_compress => $text,
);
}
1;