From 2a5b6f7d3dc3a2afdf5efb254720bd1b1fafcc4a Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Sat, 16 Apr 2011 09:54:50 -0500 Subject: allow explicitly not creating a type mapping for certain services --- lib/Bread/Board/Declare/Meta/Role/Attribute.pm | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'lib/Bread/Board/Declare/Meta') diff --git a/lib/Bread/Board/Declare/Meta/Role/Attribute.pm b/lib/Bread/Board/Declare/Meta/Role/Attribute.pm index f6584ae..83eeeaa 100644 --- a/lib/Bread/Board/Declare/Meta/Role/Attribute.pm +++ b/lib/Bread/Board/Declare/Meta/Role/Attribute.pm @@ -108,6 +108,18 @@ has associated_service => ( predicate => 'has_associated_service', ); +=attr typemap + +Whether or not to create a type mapping for this service. Defaults to true. + +=cut + +has typemap => ( + is => 'rw', + isa => 'Bool', + default => 1, +); + after attach_to_class => sub { my $self = shift; -- cgit v1.2.3-54-g00ecf