diff options
Diffstat (limited to 'lib/Bread/Board/Declare/Meta')
-rw-r--r-- | lib/Bread/Board/Declare/Meta/Role/Attribute.pm | 33 | ||||
-rw-r--r-- | lib/Bread/Board/Declare/Meta/Role/Class.pm | 9 |
2 files changed, 42 insertions, 0 deletions
diff --git a/lib/Bread/Board/Declare/Meta/Role/Attribute.pm b/lib/Bread/Board/Declare/Meta/Role/Attribute.pm index 5cd4434..82d90db 100644 --- a/lib/Bread/Board/Declare/Meta/Role/Attribute.pm +++ b/lib/Bread/Board/Declare/Meta/Role/Attribute.pm @@ -1,6 +1,7 @@ package Bread::Board::Declare::Meta::Role::Attribute; use Moose::Role; Moose::Util::meta_attribute_alias('Service'); +# ABSTRACT: attribute metarole for Bread::Board::Declare use Bread::Board::Types; use List::MoreUtils qw(any); @@ -9,18 +10,34 @@ use Bread::Board::Declare::BlockInjection; use Bread::Board::Declare::ConstructorInjection; use Bread::Board::Declare::Literal; +=head1 DESCRIPTION + +=cut + +=attr service + +=cut + has service => ( is => 'ro', isa => 'Bool', default => 1, ); +=attr block + +=cut + has block => ( is => 'ro', isa => 'CodeRef', predicate => 'has_block', ); +=attr literal_value + +=cut + # has_value is already a method has literal_value => ( is => 'ro', @@ -29,12 +46,20 @@ has literal_value => ( predicate => 'has_literal_value', ); +=attr lifecycle + +=cut + has lifecycle => ( is => 'ro', isa => 'Str', predicate => 'has_lifecycle', ); +=attr dependencies + +=cut + has dependencies => ( is => 'ro', isa => 'Bread::Board::Service::Dependencies', @@ -42,12 +67,20 @@ has dependencies => ( predicate => 'has_dependencies', ); +=attr constructor_name + +=cut + has constructor_name => ( is => 'ro', isa => 'Str', predicate => 'has_constructor_name', ); +=attr associated_service + +=cut + has associated_service => ( is => 'rw', isa => 'Bread::Board::Service', diff --git a/lib/Bread/Board/Declare/Meta/Role/Class.pm b/lib/Bread/Board/Declare/Meta/Role/Class.pm index 2869f7e..57a9db9 100644 --- a/lib/Bread/Board/Declare/Meta/Role/Class.pm +++ b/lib/Bread/Board/Declare/Meta/Role/Class.pm @@ -1,9 +1,18 @@ package Bread::Board::Declare::Meta::Role::Class; use Moose::Role; +# ABSTRACT: class metarole for Bread::Board::Declare use Bread::Board::Service; use List::MoreUtils qw(any); +=head1 DESCRIPTION + +=cut + +=method get_all_services + +=cut + sub get_all_services { my $self = shift; return map { $_->associated_service } |