File Coverage

blib/lib/Aspect/Loader.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 Aspect::Loader;
use 5.008008;
use strict;
use warnings;
our $VERSION = '0.03';
use Aspect;
use Aspect::Loader::Configuration::YAML;
use Aspect::Loader::Definition;
use UNIVERSAL::require;
use Class::Inspector;

sub new{
	my $class     = shift;
	my $configuration  = shift;
	my $self = {
		_configuration => $configuration,
	};
	bless $self,$class;
  $self->load_aspect;
	return $self;
}

sub yaml_loader{
	my $class = shift;
	my $file_path = shift;
	my $configuration = Aspect::Loader::Configuration::YAML->new($file_path);
	return $class->new($configuration);
}

sub load_aspect{
	my $self = shift;
  my $configuration = $self->{_configuration}->get_configuration();
  foreach my $conf (@$configuration){
	    my $definition = Aspect::Loader::Definition->new($conf);
      my $class = $definition->get_class_name;
      unless(Class::Inspector->loaded($class )){
        $class->require or die "cant load class $class";
      }
      if($definition->get_class_name){

      }
      aspect $definition->get_library  => $definition->get_call;
  }
}


1;
__END__