diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-02-21 16:04:51 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-02-21 16:04:51 -0600 |
commit | b274df4c9da24b117a22e287acd03b3fa87233a8 (patch) | |
tree | 602aba197c8752ea4253bc8fbb950fb373f92903 /lib/Bread/Board/Declare/Role/Object.pm | |
parent | 61839366b807e9e8f6818020508d765efed945b5 (diff) | |
download | bread-board-declare-b274df4c9da24b117a22e287acd03b3fa87233a8.tar.gz bread-board-declare-b274df4c9da24b117a22e287acd03b3fa87233a8.zip |
rename MooseX::Bread::Board -> Bread::Board::Declare
Diffstat (limited to 'lib/Bread/Board/Declare/Role/Object.pm')
-rw-r--r-- | lib/Bread/Board/Declare/Role/Object.pm | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/lib/Bread/Board/Declare/Role/Object.pm b/lib/Bread/Board/Declare/Role/Object.pm new file mode 100644 index 0000000..f0f0048 --- /dev/null +++ b/lib/Bread/Board/Declare/Role/Object.pm @@ -0,0 +1,36 @@ +package Bread::Board::Declare::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('Bread::Board::Declare::BlockInjection')) { + my $block = $service->block; + $self->add_service( + $service->clone( + block => sub { + $block->(@_, $self) + }, + ) + ); + } + else { + $self->add_service($service->clone); + } + } +}; + +no Moose::Role; + +1; |