explicitly load modules for ES sub types

Author: haarg

lib/MetaCPAN/Document/Author.pm

@@ -7,9 +7,10 @@ use ElasticSearchX::Model::Document::Types qw( Location );
 use ElasticSearchX::Model::Document;
 
 # load order not important
-use Gravatar::URL             ();
-use MetaCPAN::Types           qw( ESBool Profile );
-use MetaCPAN::Types::TypeTiny qw(
+use Gravatar::URL                       ();
+use MetaCPAN::Document::Author::Profile ();
+use MetaCPAN::Types                     qw( ESBool Profile );
+use MetaCPAN::Types::TypeTiny           qw(
     ArrayRef
     ArrayRefPromote
     Blog

lib/MetaCPAN/Document/Release.pm

@@ -3,8 +3,9 @@ package MetaCPAN::Document::Release;
 use Moose;
 
 use ElasticSearchX::Model::Document;
-use MetaCPAN::Types           qw( ESBool Dependency );
-use MetaCPAN::Types::TypeTiny qw(
+use MetaCPAN::Document::Dependency ();
+use MetaCPAN::Types                qw( ESBool Dependency );
+use MetaCPAN::Types::TypeTiny      qw(
     ArrayRef
     HashRefCPANMeta
     Num

lib/MetaCPAN/Model/User/Account.pm

@@ -6,9 +6,10 @@ use warnings;
 use Moose;
 use ElasticSearchX::Model::Document;
 
-use MetaCPAN::Types           qw( ESBool Identity );
-use MetaCPAN::Types::TypeTiny qw( ArrayRef Dict Str );
-use MetaCPAN::Util            qw(true false);
+use MetaCPAN::Model::User::Identity ();
+use MetaCPAN::Types                 qw( ESBool Identity );
+use MetaCPAN::Types::TypeTiny       qw( ArrayRef Dict Str );
+use MetaCPAN::Util                  qw(true false);
 
 =head1 PROPERTIES
 

lib/MetaCPAN/Types/Internal.pm

@@ -19,13 +19,18 @@ use MooseX::Types -declare => [ qw(
 
 subtype Module, as ArrayRef [ Type ['MetaCPAN::Document::Module'] ];
 coerce Module, from ArrayRef, via {
+    require MetaCPAN::Document::Module;
     [ map { ref $_ eq 'HASH' ? MetaCPAN::Document::Module->new($_) : $_ }
             @$_ ];
 };
-coerce Module, from HashRef, via { [ MetaCPAN::Document::Module->new($_) ] };
+coerce Module, from HashRef, via {
+    require MetaCPAN::Document::Module;
+    [ MetaCPAN::Document::Module->new($_) ];
+};
 
 subtype Identity, as ArrayRef [ Type ['MetaCPAN::Model::User::Identity'] ];
 coerce Identity, from ArrayRef, via {
+    require MetaCPAN::Model::User::Identity;
     [
         map {
             ref $_ eq 'HASH'
@@ -34,11 +39,14 @@ coerce Identity, from ArrayRef, via {
         } @$_
     ];
 };
-coerce Identity, from HashRef,
-    via { [ MetaCPAN::Model::User::Identity->new($_) ] };
+coerce Identity, from HashRef, via {
+    require MetaCPAN::Model::User::Identity;
+    [ MetaCPAN::Model::User::Identity->new($_) ];
+};
 
 subtype Dependency, as ArrayRef [ Type ['MetaCPAN::Document::Dependency'] ];
 coerce Dependency, from ArrayRef, via {
+    require MetaCPAN::Document::Dependency;
     [
         map {
             ref $_ eq 'HASH'
@@ -47,11 +55,14 @@ coerce Dependency, from ArrayRef, via {
         } @$_
     ];
 };
-coerce Dependency, from HashRef,
-    via { [ MetaCPAN::Document::Dependency->new($_) ] };
+coerce Dependency, from HashRef, via {
+    require MetaCPAN::Document::Dependency;
+    [ MetaCPAN::Document::Dependency->new($_) ];
+};
 
 subtype Profile, as ArrayRef [ Type ['MetaCPAN::Document::Author::Profile'] ];
 coerce Profile, from ArrayRef, via {
+    require MetaCPAN::Document::Author::Profile;
     [
         map {
             ref $_ eq 'HASH'
@@ -60,8 +71,10 @@ coerce Profile, from ArrayRef, via {
         } @$_
     ];
 };
-coerce Profile, from HashRef,
-    via { [ MetaCPAN::Document::Author::Profile->new($_) ] };
+coerce Profile, from HashRef, via {
+    require MetaCPAN::Document::Author::Profile;
+    [ MetaCPAN::Document::Author::Profile->new($_) ];
+};
 
 MooseX::Getopt::OptionTypeMap->add_option_type_to_map(
     'MooseX::Types::ElasticSearch::ES' => '=s' );