diff options
Diffstat (limited to 'lib/MooseX/Bread/Board/Role/Object.pm')
-rw-r--r-- | lib/MooseX/Bread/Board/Role/Object.pm | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/lib/MooseX/Bread/Board/Role/Object.pm b/lib/MooseX/Bread/Board/Role/Object.pm deleted file mode 100644 index e99e5ed..0000000 --- a/lib/MooseX/Bread/Board/Role/Object.pm +++ /dev/null @@ -1,36 +0,0 @@ -package MooseX::Bread::Board::Role::Object; -use Moose::Role; - -has name => ( - is => 'rw', - isa => 'Str', - lazy => 1, - default => sub { shift->meta->name }, -); - -sub BUILD { } -after BUILD => sub { - my $self = shift; - - my $meta = Class::MOP::class_of($self); - - for my $service ($meta->get_all_services) { - if ($service->isa('MooseX::Bread::Board::BlockInjection')) { - my $block = $service->block; - $self->add_service( - $service->clone( - block => sub { - $block->(@_, $self) - }, - ) - ); - } - else { - $self->add_service($service->clone); - } - } -}; - -no Moose::Role; - -1; |