diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-10-10 12:37:30 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-10-10 12:37:52 -0500 |
commit | 3ccbed1506d350a63abe81657ace5e11c7da5ee4 (patch) | |
tree | 811b6b42b6f7e8ac03ad3ad4662ec3af0d161d23 /lib/Bread/Board/Declare | |
parent | 5f8e55a79913581e5203a2ef0d4722b16091689b (diff) | |
download | bread-board-declare-3ccbed1506d350a63abe81657ace5e11c7da5ee4.tar.gz bread-board-declare-3ccbed1506d350a63abe81657ace5e11c7da5ee4.zip |
actually, keep this as an attribute on the metaclass
Diffstat (limited to 'lib/Bread/Board/Declare')
-rw-r--r-- | lib/Bread/Board/Declare/Meta/Role/Attribute.pm | 14 | ||||
-rw-r--r-- | lib/Bread/Board/Declare/Meta/Role/Attribute/Service.pm | 8 |
2 files changed, 14 insertions, 8 deletions
diff --git a/lib/Bread/Board/Declare/Meta/Role/Attribute.pm b/lib/Bread/Board/Declare/Meta/Role/Attribute.pm index c7d1477..d356e3a 100644 --- a/lib/Bread/Board/Declare/Meta/Role/Attribute.pm +++ b/lib/Bread/Board/Declare/Meta/Role/Attribute.pm @@ -1,9 +1,22 @@ package Bread::Board::Declare::Meta::Role::Attribute; use Moose::Role; +# ABSTRACT: base attribute metarole for Bread::Board::Declare use List::MoreUtils 'any'; use Moose::Util 'does_role', 'find_meta'; +=attr service + +Whether or not to create a service for this attribute. Defaults to true. + +=cut + +has service => ( + is => 'ro', + isa => 'Bool', + default => 1, +); + # this is kinda gross, but it's the only way to hook in at the right place # at the moment, it seems around interpolate_class => sub { @@ -16,7 +29,6 @@ around interpolate_class => sub { if $options->{metaclass}; if (exists $options->{service} && !$options->{service}) { - delete $options->{service}; return $class->$orig(@_); } diff --git a/lib/Bread/Board/Declare/Meta/Role/Attribute/Service.pm b/lib/Bread/Board/Declare/Meta/Role/Attribute/Service.pm index 795ae53..6a8ee9b 100644 --- a/lib/Bread/Board/Declare/Meta/Role/Attribute/Service.pm +++ b/lib/Bread/Board/Declare/Meta/Role/Attribute/Service.pm @@ -1,7 +1,7 @@ package Bread::Board::Declare::Meta::Role::Attribute::Service; use Moose::Role; Moose::Util::meta_attribute_alias('Service'); -# ABSTRACT: attribute metarole for Bread::Board::Declare +# ABSTRACT: attribute metarole for service attributes in Bread::Board::Declare use Bread::Board::Types; use List::MoreUtils qw(any); @@ -17,12 +17,6 @@ L<Bread::Board::Declare> objects. =cut -=attr service - -Whether or not to create a service for this attribute. Defaults to true. - -=cut - =attr block The block to use when creating a L<Bread::Board::BlockInjection> service. |