File Coverage

blib/lib/Class/DI.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package Class::DI;
use 5.008008;
use strict;
use warnings;

our $VERSION = '0.03';
use Class::DI::Definition;
use Class::DI::Resource::YAML;
use Class::DI::Factory;

sub new{
	my $class     = shift;
	my $resource  = shift;
	my $self = {
		_resource => $resource,
		_factory  => Class::DI::Factory->new,
	};
	bless $self,$class;
	return $self;
}

sub yaml_container{
	my $class = shift;
	my $file_path = shift;
	my $resource = Class::DI::Resource::YAML->new($file_path);
	return $class->new($resource);
}

sub get_component{
	my $self = shift;
	my $id   = shift;
	my $resource = $self->{_resource}->get_resource($id);
	die "not found definition id:$id" unless($resource);
	my $definition = Class::DI::Definition->new($resource);
	my $instance = $self->{_factory}->get_instance($definition);
	return $instance;
}


1;
__END__