File Coverage

blib/lib/OrePAN2/CLI/Inject.pm

Criterion	Covered	Total	%
statement	45	52	86.5
branch	9	18	50.0
condition	3	6	50.0
subroutine	9	9	100.0
pod	0	2	0.0
total	66	87	75.8

package OrePAN2::CLI::Inject;

use strict;
use warnings;
use utf8;

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

sub new {
    my $class = shift;
    bless {}, $class;
}

sub run {
    my ( $self, @args ) = @_;

    my $version;
    my $generate_index = 1;
    my $author         = 'DUMMY';
    my $author_subdir  = q{};
    my $simple;
    my $text;
    my $enable_cache = 0;
    my $p            = Getopt::Long::Parser->new(
        config => [qw(posix_default no_ignore_case auto_help)] );
    $p->getoptions(
        'version!'        => \$version,
        'generate-index!' => \$generate_index,
        'author=s'        => \$author,
        'author_subdir=s' => \$author_subdir,
        'simple!'         => \$simple,
        'text!'           => \$text,
        'cache!'          => \$enable_cache,
    );

    if ($version) {
        print "orepan2: $OrePAN2::VERSION\n";
    }
    my $directory = pop @ARGV or pod2usage(
        -input => $0,
    );

    my $repository = OrePAN2::Repository->new(
        directory      => $directory,
        compress_index => !$text,
        simple         => $simple,
    );
    if (@ARGV) {
        for (@ARGV) {
            next unless /\S/;
            next if $enable_cache && $repository->has_cache($_);

            my $tarpath = $repository->inject(
                $_,
                { author => $author, author_subdir => $author_subdir }
            );
            print "Wrote $tarpath from $_\n";
        }
    }
    else {
        while (<>) {
            chomp;
            next unless /\S/;
            next if $enable_cache && $repository->has_cache($_);

            my $tarpath = $repository->inject(
                $_,
                { author => $author, author_subdir => $author_subdir }
            );
            print "Wrote $tarpath from $_\n";
        }
    }

    return unless $repository->cache->is_dirty;

    $repository->save_cache;

    if ($generate_index) {
        $repository->make_index();
    }
}

1;