initial implementation

1 files changed, 32 insertions, 0 deletions

diff --git a/lib/MooseX/Bread/Board/Role/Service.pm b/lib/MooseX/Bread/Board/Role/Service.pm
new file mode 100644
index 0000000..8442e3a
--- /dev/null
+++ b/lib/MooseX/Bread/Board/Role/Service.pm
@@ -0,0 +1,32 @@
+package MooseX::Bread::Board::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;
+    until (!defined($container)
+        || ($container->isa('Bread::Board::Container')
+            && $container->does('MooseX::Bread::Board::Role::Object'))) {
+        $container = $container->parent;
+    }
+    die "Couldn't find associated object!" unless defined $container;
+
+    if ($self->associated_attribute->has_value($container)) {
+        return $self->associated_attribute->get_value($container);
+    }
+
+    return $self->$orig(@_);
+};
+
+no Moose::Role;
+
+1;