summaryrefslogtreecommitdiffstats
path: root/lib/MooseX/Bread/Board/Meta/Role/Attribute.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/MooseX/Bread/Board/Meta/Role/Attribute.pm')
-rw-r--r--lib/MooseX/Bread/Board/Meta/Role/Attribute.pm9
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/MooseX/Bread/Board/Meta/Role/Attribute.pm b/lib/MooseX/Bread/Board/Meta/Role/Attribute.pm
index c6c1335..e44b30e 100644
--- a/lib/MooseX/Bread/Board/Meta/Role/Attribute.pm
+++ b/lib/MooseX/Bread/Board/Meta/Role/Attribute.pm
@@ -40,6 +40,12 @@ has dependencies => (
predicate => 'has_dependencies',
);
+has constructor_name => (
+ is => 'ro',
+ isa => 'Str',
+ predicate => 'has_constructor_name',
+);
+
after attach_to_class => sub {
my $self = shift;
@@ -55,6 +61,9 @@ after attach_to_class => sub {
($self->has_dependencies
? (dependencies => $self->dependencies)
: ()),
+ ($self->has_constructor_name
+ ? (constructor_name => $self->constructor_name)
+ : ()),
);
my $service;