diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-02-20 09:43:58 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-02-20 09:43:58 -0600 |
commit | 53013e0c04d124444c015e657c4c8c6dcbd94d45 (patch) | |
tree | bf85cd08d45bc446c8f6e3d3892c7e0716ee4337 /lib | |
parent | 9a259f4341c60b2fb9ddc3aefc640081ead9f078 (diff) | |
download | bread-board-declare-53013e0c04d124444c015e657c4c8c6dcbd94d45.tar.gz bread-board-declare-53013e0c04d124444c015e657c4c8c6dcbd94d45.zip |
this needs to be an expression
Diffstat (limited to 'lib')
-rw-r--r-- | lib/MooseX/Bread/Board/Meta/Role/Attribute.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/MooseX/Bread/Board/Meta/Role/Attribute.pm b/lib/MooseX/Bread/Board/Meta/Role/Attribute.pm index a7ecb59..90a10e5 100644 --- a/lib/MooseX/Bread/Board/Meta/Role/Attribute.pm +++ b/lib/MooseX/Bread/Board/Meta/Role/Attribute.pm @@ -99,9 +99,9 @@ around inline_get => sub { my $self = shift; my ($instance) = @_; - return 'return (' . $self->inline_has($instance) . ')' . "\n" + return '((' . $self->inline_has($instance) . ')' . "\n" . '? (' . $self->$orig($instance) . ')' . "\n" - . ': (' . $instance . '->get_service(\'' . $self->name . '\')->get);'; + . ': (' . $instance . '->get_service(\'' . $self->name . '\')->get))'; }; no Moose::Role; |