From bdd7d98494fcf04ae26f462e213d5decaedef34f Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Sun, 12 Feb 2012 03:51:22 -0600 Subject: replace remaining Class::MOP::load_class with Class::Load --- lib/Bread/Board/Declare/Meta/Role/Attribute/Service.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lib/Bread/Board/Declare/Meta/Role/Attribute/Service.pm b/lib/Bread/Board/Declare/Meta/Role/Attribute/Service.pm index edf9080..935e5cb 100644 --- a/lib/Bread/Board/Declare/Meta/Role/Attribute/Service.pm +++ b/lib/Bread/Board/Declare/Meta/Role/Attribute/Service.pm @@ -4,6 +4,7 @@ Moose::Util::meta_attribute_alias('Service'); # ABSTRACT: attribute metarole for service attributes in Bread::Board::Declare use Bread::Board::Types; +use Class::Load qw(load_class); use List::MoreUtils qw(any); use Bread::Board::Declare::BlockInjection; @@ -148,7 +149,7 @@ after attach_to_class => sub { if ($self->has_block) { if ($tc && $tc->isa('Moose::Meta::TypeConstraint::Class')) { %params = (%params, class => $tc->class); - Class::MOP::load_class($tc->class); + load_class($tc->class); } $service = Bread::Board::Declare::BlockInjection->new( %params, @@ -162,7 +163,7 @@ after attach_to_class => sub { ); } elsif ($tc && $tc->isa('Moose::Meta::TypeConstraint::Class')) { - Class::MOP::load_class($tc->class); + load_class($tc->class); $service = Bread::Board::Declare::ConstructorInjection->new( %params, class => $tc->class, -- cgit v1.2.3