Trait::Collection::Bag

diff --git a/lib/MooseX/AttributeHelpers.pm b/lib/MooseX/AttributeHelpers.pm
index b7d2605..4a73b89 100644 (file)
--- a/lib/MooseX/AttributeHelpers.pm
+++ b/lib/MooseX/AttributeHelpers.pm
@@ -13,6 +13,7 @@ use MooseX::AttributeHelpers::Trait::Collection::List;
 use MooseX::AttributeHelpers::Trait::Collection::Array;
 use MooseX::AttributeHelpers::Trait::Collection::Hash;
 use MooseX::AttributeHelpers::Trait::Collection::ImmutableHash;
+use MooseX::AttributeHelpers::Trait::Collection::Bag;
 
 use MooseX::AttributeHelpers::Counter;
 use MooseX::AttributeHelpers::Number;

diff --git a/lib/MooseX/AttributeHelpers/Collection/Bag.pm b/lib/MooseX/AttributeHelpers/Collection/Bag.pm
index 48bb388..46e0931 100644 (file)
--- a/lib/MooseX/AttributeHelpers/Collection/Bag.pm
+++ b/lib/MooseX/AttributeHelpers/Collection/Bag.pm
@@ -14,7 +14,8 @@ has '+method_provider' => (
     default => 'MooseX::AttributeHelpers::MethodProvider::Bag'
 );
 
-subtype 'Bag' => as 'HashRef[Int]';
+subtype 'Bag' => as 'HashRef[Int]'
+    unless find_type_constraint('Bag');
 
 sub helper_type { 'Bag' }
 
@@ -107,4 +108,4 @@ L<http://www.iinteractive.com>
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.
 
-=cut
\ No newline at end of file
+=cut