File Coverage

blib/lib/IOC/Service/Parameterized.pm

Criterion	Covered	Total	%
statement	18	19	94.7
branch	1	2	50.0
condition			n/a
subroutine	6	7	85.7
pod	2	2	100.0
total	27	30	90.0

package IOC::Service::Parameterized;

use strict;
use warnings;

our $VERSION = '0.01';

use Scalar::Util qw(blessed);

use IOC::Exceptions;

use base 'IOC::Service::Prototype';

sub instance {
    my ($self, %params) = @_;
    (defined($self->{container}))
        || throw IOC::IllegalOperation "Cannot create a service instance without setting container";
    # we need to be sure to not store this value
    # otherwise we will add a ref count to it
    return $self->{block}->($self->{container}, %params);
}

sub deferred {
    throw IOC::IllegalOperation "Parameterized services cannot be deferred";
}

1;

__END__