diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-02-21 11:40:59 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-02-21 11:40:59 -0600 |
commit | ed3e3a9675ceb2745488ab80b27796a77eca4761 (patch) | |
tree | 64e1f6ac5c42c8a8ba3d170ab6730fba6d59aa2a /lib/MooseX/Bread/Board/Role/Object.pm | |
parent | 231745b0fd56e122e09165e1d8ffd57ae86ae749 (diff) | |
download | bread-board-declare-ed3e3a9675ceb2745488ab80b27796a77eca4761.tar.gz bread-board-declare-ed3e3a9675ceb2745488ab80b27796a77eca4761.zip |
make inheritance work
Diffstat (limited to 'lib/MooseX/Bread/Board/Role/Object.pm')
-rw-r--r-- | lib/MooseX/Bread/Board/Role/Object.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/MooseX/Bread/Board/Role/Object.pm b/lib/MooseX/Bread/Board/Role/Object.pm index e25fdf5..8846792 100644 --- a/lib/MooseX/Bread/Board/Role/Object.pm +++ b/lib/MooseX/Bread/Board/Role/Object.pm @@ -14,9 +14,9 @@ after BUILD => sub { my $self = shift; my $meta = Class::MOP::class_of($self); - return unless $meta->has_services; + return unless $meta->has_any_services; - for my $service ($meta->services) { + for my $service ($meta->get_all_services) { if ($service->isa('MooseX::Bread::Board::BlockInjection')) { my $block = $service->block; $self->add_service( |