File Coverage

blib/lib/OrePAN2/CLI/Indexer.pm

Criterion	Covered	Total	%
statement	33	34	97.0
branch	2	4	50.0
condition			n/a
subroutine	9	9	100.0
pod	0	2	0.0
total	44	49	89.8

package OrePAN2::CLI::Indexer;

use strict;
use warnings;
use utf8;

use Getopt::Long     ();
use OrePAN2          ();
use OrePAN2::Indexer ();
use Pod::Usage       qw( pod2usage );

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;