diff options
| author | Jesse Luehrs <doy@tozt.net> | 2011-02-21 01:34:02 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2011-02-21 01:34:02 -0600 |
| commit | d1149a69c6121025816d388fadc3861e7407c594 (patch) | |
| tree | 4d46c95789b8abac0b6184427158abe59d4c475d /lib | |
| parent | 209100060d31fc0ac64676dea89adb6b8b0c1fb5 (diff) | |
| download | bread-board-declare-d1149a69c6121025816d388fadc3861e7407c594.tar.gz bread-board-declare-d1149a69c6121025816d388fadc3861e7407c594.zip | |
support the constructor_name option
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/MooseX/Bread/Board/Meta/Role/Attribute.pm | 9 |
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; |