From d1149a69c6121025816d388fadc3861e7407c594 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Mon, 21 Feb 2011 01:34:02 -0600 Subject: support the constructor_name option --- lib/MooseX/Bread/Board/Meta/Role/Attribute.pm | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'lib') 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; -- cgit v1.2.3-54-g00ecf