File Coverage

blib/lib/Maven/Repositories.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

use strict;
use warnings;

package Maven::Repositories;
$Maven::Repositories::VERSION = '1.14';
# ABSTRACT: An ordered collection of repositories from which to resolve artifacts
# PODNAME: Maven::Repositories

use parent qw(Class::Accessor);
__PACKAGE__->follow_best_practice;
__PACKAGE__->mk_accessors(qw(repositories));

use Carp;
use Log::Any;
use Maven::LocalRepository;
use Maven::RemoteRepository;

my $logger = Log::Any->get_logger();

sub new {
    return bless( {}, shift )->_init(@_);
}

sub add_central {
    my ( $self, @args ) = @_;
    $logger->debug('adding central');

    return $self->add_repository( 'http://repo.maven.apache.org/maven2', @args );
}

sub _artifact_not_found {
    my ( $self, $coordinate_or_artifact, $options ) = @_;
    my $artifact =
        ref($coordinate_or_artifact)
        && UNIVERSAL::isa( $coordinate_or_artifact, 'Maven::Artifact' )
        ? $coordinate_or_artifact
        : Maven::Artifact->new( $coordinate_or_artifact, %$options )->get_coordinate();
    return "artifact $artifact not found";
}

sub add_local {
    my ( $self, $local_repository_path, @args ) = @_;
    $logger->debugf( 'adding local %s', $local_repository_path );

    push(
        @{ $self->{repositories} },
        Maven::LocalRepository->new( $local_repository_path, @args )
    );

    return $self;
}

sub add_repository {
    my ( $self, $url, @args ) = @_;
    $logger->debugf( 'adding repo %s', $url );

    push( @{ $self->{repositories} }, Maven::RemoteRepository->new( $url, @args ) );

    return $self;
}

sub _init {
    my ( $self, @args ) = @_;
    $logger->trace('initializing repositories');

    $self->{repositories} = [];

    return $self;
}

sub get_repository {
    my ( $self, $url ) = @_;
    foreach my $repository ( @{ $self->{repositories} } ) {
        if ( $repository->contains($url) ) {
            return $repository;
        }
    }
    return;
}

sub resolve {
    my ( $self, $coordinate_or_artifact, @parts ) = @_;

    my $artifact;
    foreach my $repository ( @{ $self->{repositories} } ) {
        last if ( $artifact = $repository->resolve( $coordinate_or_artifact, @parts ) );
    }

    return $artifact;
}

sub resolve_or_die {
    my ( $self, $coordinate_or_artifact, %parts ) = @_;
    my $resolved = $self->resolve( $coordinate_or_artifact, %parts );
    croak( $self->_artifact_not_found( $coordinate_or_artifact, \%parts ) ) if ( !$resolved );

    return $resolved;
}

1;

__END__