File Coverage

blib/lib/Footprintless/ResourceManager.pm

Criterion	Covered	Total	%
statement	47	49	95.9
branch	4	6	66.6
condition			n/a
subroutine	11	11	100.0
pod	2	2	100.0
total	64	68	94.1

use strict;
use warnings;

package Footprintless::ResourceManager;
$Footprintless::ResourceManager::VERSION = '1.28';
# ABSTRACT: A manager for finding and retrieving resources
# PODNAME: Footprintless::ResourceManager

use parent qw(Footprintless::MixableBase);

use Carp;
use Footprintless::Mixins qw(
    _entity
);
use Footprintless::Resource::Maven;
use Footprintless::Resource::Url;
use Footprintless::Util qw(
    dynamic_module_new
);

sub download {
    my ( $self, $resource, @options ) = @_;

    foreach my $provider ( @{ $self->{providers} } ) {
        if ( $provider->supports($resource) ) {
            return $provider->download( $resource, @options );
        }
    }

    croak("unsupported resource type [$resource]");
}

sub _init {
    my ( $self, @options ) = @_;

    $self->{providers} = ();
    my $providers = $self->_entity('footprintless.resource_manager.providers');
    if ($providers) {
        foreach my $provider_module (@$providers) {
            push(
                @{ $self->{providers} },
                dynamic_module_new(
                    $provider_module, $self->{factory}, $self->{coordinate}, @options
                )
            );
        }
    }
    else {
        eval {
            # Maven::Agent may not be available...
            push(
                @{ $self->{providers} },
                dynamic_module_new(
                    'Footprintless::Resource::MavenProvider',
                    $self->{factory}, $self->{coordinate}, @options
                )
            );
        };

        push(
            @{ $self->{providers} },
            dynamic_module_new(
                'Footprintless::Resource::UrlProvider', $self->{factory},
                $self->{coordinate},                    @options
            )
        );
    }

    return $self;
}

sub resource {
    my ( $self, $spec ) = @_;

    foreach my $provider ( @{ $self->{providers} } ) {
        if ( $provider->supports($spec) ) {
            return $provider->resource($spec);
        }
    }

    croak("unsupported resource: $spec");
}

1;

__END__