From 8ad579f26a1c74d5685491df55b57e694e54e087 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sun, 20 Feb 2011 02:04:52 -0600
Subject: initial implementation

---
 lib/MooseX/Bread/Board/Meta/Role/Attribute.pm | 109 ++++++++++++++++++++++++++
 1 file changed, 109 insertions(+)
 create mode 100644 lib/MooseX/Bread/Board/Meta/Role/Attribute.pm

(limited to 'lib/MooseX/Bread/Board/Meta/Role/Attribute.pm')

diff --git a/lib/MooseX/Bread/Board/Meta/Role/Attribute.pm b/lib/MooseX/Bread/Board/Meta/Role/Attribute.pm
new file mode 100644
index 0000000..a7ecb59
--- /dev/null
+++ b/lib/MooseX/Bread/Board/Meta/Role/Attribute.pm
@@ -0,0 +1,109 @@
+package MooseX::Bread::Board::Meta::Role::Attribute;
+use Moose::Role;
+
+use Bread::Board::Types;
+
+use MooseX::Bread::Board::BlockInjection;
+use MooseX::Bread::Board::ConstructorInjection;
+use MooseX::Bread::Board::Literal;
+
+has class => (
+    is        => 'ro',
+    isa       => 'Str',
+    predicate => 'has_class',
+);
+
+has block => (
+    is        => 'ro',
+    isa       => 'CodeRef',
+    predicate => 'has_block',
+);
+
+# has_value is already a method
+has literal_value => (
+    is        => 'ro',
+    isa       => 'Str|CodeRef',
+    init_arg  => 'value',
+    predicate => 'has_literal_value',
+);
+
+has lifecycle => (
+    is        => 'ro',
+    isa       => 'Str',
+    predicate => 'has_lifecycle',
+);
+
+has dependencies => (
+    is        => 'ro',
+    isa       => 'Bread::Board::Service::Dependencies',
+    coerce    => 1,
+    predicate => 'has_dependencies',
+);
+
+after attach_to_class => sub {
+    my $self = shift;
+
+    my $meta = $self->associated_class;
+    my $attr_reader = $self->get_read_method;
+
+    my %params = (
+        associated_attribute => $self,
+        name                 => $self->name,
+        ($self->has_lifecycle
+            ? (lifecycle => $self->lifecycle)
+            : ()),
+        ($self->has_dependencies
+            ? (dependencies => $self->dependencies)
+            : ()),
+    );
+
+    my $service;
+    if ($self->has_class) {
+        $service = MooseX::Bread::Board::ConstructorInjection->new(
+            %params,
+            class => $self->class,
+        )
+    }
+    elsif ($self->has_block) {
+        $service = MooseX::Bread::Board::BlockInjection->new(
+            %params,
+            block => $self->block,
+        )
+    }
+    elsif ($self->has_literal_value) {
+        $service = MooseX::Bread::Board::Literal->new(
+            %params,
+            value => $self->literal_value,
+        )
+    }
+    else {
+        return;
+    }
+
+    $meta->add_service($service);
+};
+
+around get_value => sub {
+    my $orig = shift;
+    my $self = shift;
+    my ($instance) = @_;
+
+    return $self->$orig($instance)
+        if $self->has_value($instance);
+
+    return $instance->get_service($self->name)->get;
+};
+
+around inline_get => sub {
+    my $orig = shift;
+    my $self = shift;
+    my ($instance) = @_;
+
+    return 'return (' . $self->inline_has($instance) . ')' . "\n"
+             . '? (' . $self->$orig($instance) . ')'       . "\n"
+             . ': (' . $instance . '->get_service(\'' . $self->name . '\')->get);';
+};
+
+no Moose::Role;
+
+1;
-- 
cgit v1.2.3-54-g00ecf