File Coverage

blib/lib/IOC/Visitor/ServiceLocator.pm

Criterion	Covered	Total	%
statement	48	48	100.0
branch	14	14	100.0
condition	4	6	66.6
subroutine	8	8	100.0
pod	2	2	100.0
total	76	78	97.4

package IOC::Visitor::ServiceLocator;

use strict;
use warnings;

our $VERSION = '0.02';

use Scalar::Util qw(blessed);

use IOC::Interfaces;
use IOC::Exceptions;

use base 'IOC::Visitor';

sub new {
    my ($_class, $path, $extra_args) = @_;
    ($path)
        || throw IOC::InsufficientArguments "You must provide an path to locate a container";
    my $class = ref($_class) || $_class;
    my $visitor = {
        path => $path,
        extra_args => $extra_args
    };
    bless($visitor, $class);
    return $visitor;
}

sub visit {
    my ($self, $container) = @_;
    (blessed($container) && $container->isa('IOC::Container'))
        || throw IOC::InsufficientArguments "You must provide an IOC::Container object as a sub-container";
    my $service;
    my @extra_args = (defined $self->{extra_args} ? @{$self->{extra_args}} : ());
    my @path = grep { $_ } split /\// => $self->{path};
    my $service_name = pop @path;
    if ($self->{path} =~ /^\//) {
        # start at the root
        my $current = $container->findRootContainer();
        foreach my $container_name (@path) {
            eval {
                $current = $current->getSubContainer($container_name);
            };
            throw IOC::UnableToLocateService "Could not locate the service at path '" . $self->{path} . "' failed at '$container_name'", $@ if $@;
        }
        $service = $current->get($service_name, @extra_args);
    }
    else {
        my $current = $container;
        foreach my $container_name (@path) {
            if ($container_name eq '..') {
                $current = $current->getParentContainer();
            }
            else {
                eval {
                    $current = $current->getSubContainer($container_name);
                };
                throw IOC::UnableToLocateService "Could not locate the service at path '" . $self->{path} . "' failed at '$container_name'", $@ if $@;
            }
        }
        $service = $current->get($service_name, @extra_args);
    }
    return $service;
}

1;

__END__