File Coverage

blib/lib/IOC/Service/Literal.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	4	4	100.0
condition	1	3	33.3
subroutine	11	11	100.0
pod	4	4	100.0
total	50	52	96.1

package IOC::Service::Literal;

use strict;
use warnings;

our $VERSION = '0.01';

use Scalar::Util qw(blessed);

use IOC::Exceptions;

use base 'IOC::Service';

sub new {
    my ($_class, $name, $literal) = @_;
    my $class = ref($_class) || $_class;
    my $service = {};
    bless($service, $class);
    $service->_init($name, $literal);
    return $service;
}

sub _init {
    my ($self, $name, $literal) = @_;
    (defined($name)) || throw IOC::InsufficientArguments "Service object cannot be created without a name";
    (defined($literal))
        || throw IOC::InsufficientArguments "Service::Literal object cannot be created without value";
    # set the defaults
    $self->{_instance} = $literal;
    # assign constructor args
    $self->{name} = $name;
    # No block in this one
    ## $self->{block} = undef;
    # No container in this one either
    ## $self->{container} = undef;
}

sub instance { (shift)->{_instance} }

# no-ops
sub setContainer    { () }
sub removeContainer { () }
sub DESTROY         { () }

1;

__END__