From b274df4c9da24b117a22e287acd03b3fa87233a8 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 21 Feb 2011 16:04:51 -0600
Subject: rename MooseX::Bread::Board -> Bread::Board::Declare

---
 lib/Bread/Board/Declare/Role/Object.pm  | 36 +++++++++++++++++++++++++++++
 lib/Bread/Board/Declare/Role/Service.pm | 40 +++++++++++++++++++++++++++++++++
 2 files changed, 76 insertions(+)
 create mode 100644 lib/Bread/Board/Declare/Role/Object.pm
 create mode 100644 lib/Bread/Board/Declare/Role/Service.pm

(limited to 'lib/Bread/Board/Declare/Role')

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;
diff --git a/lib/Bread/Board/Declare/Role/Service.pm b/lib/Bread/Board/Declare/Role/Service.pm
new file mode 100644
index 0000000..b25069f
--- /dev/null
+++ b/lib/Bread/Board/Declare/Role/Service.pm
@@ -0,0 +1,40 @@
+package Bread::Board::Declare::Role::Service;
+use Moose::Role;
+
+has associated_attribute => (
+    is       => 'ro',
+    isa      => 'Class::MOP::Attribute',
+    required => 1,
+    weak_ref => 1,
+);
+
+around get => sub {
+    my $orig = shift;
+    my $self = shift;
+
+    my $container = $self->parent_container;
+
+    if ($self->associated_attribute->has_value($container)) {
+        return $self->associated_attribute->get_value($container);
+    }
+
+    return $self->$orig(@_);
+};
+
+sub parent_container {
+    my $self = shift;
+
+    my $container = $self;
+    until (!defined($container)
+        || ($container->isa('Bread::Board::Container')
+            && $container->does('Bread::Board::Declare::Role::Object'))) {
+        $container = $container->parent;
+    }
+    die "Couldn't find associated object!" unless defined $container;
+
+    return $container;
+}
+
+no Moose::Role;
+
+1;
-- 
cgit v1.2.3-54-g00ecf