Add support for :all on MooseX::Types::Combine

[gitmo/MooseX-Types.git] / lib / MooseX / Types / Combine.pm

diff --git a/lib/MooseX/Types/Combine.pm b/lib/MooseX/Types/Combine.pm
index 73e1e20..010f15a 100644 (file)
--- a/lib/MooseX/Types/Combine.pm
+++ b/lib/MooseX/Types/Combine.pm
@@ -33,6 +33,11 @@ sub import {
 
     my %types = $class->_provided_types;
 
+    if ( grep { $_ eq ':all' } @types ){
+      $_->import({ -into => $caller }, q{:all} ) for $class->provide_types_from;
+      return;
+    }
+
     my %from;
     for my $type (@types) {
         unless ($types{$type}) {