only load MooseX::Getopt in script role

MooseX::Getopt is used in our scripts, and we need to tell it about some
of the types we use. But that is only needed in the scripts. Rather than
setting it up in the type module, we can set it up in the role that is
used in every script. This means it won't be loaded in the web app.

Author: haarg

lib/MetaCPAN/Role/Logger.pm

@@ -6,6 +6,7 @@ use Moose::Role;
 use Log::Contextual qw( set_logger );
 use Log::Log4perl ':easy';
 use MetaCPAN::Types::TypeTiny qw( Logger Str );
+use MooseX::Getopt            ();
 use Path::Tiny                qw( path );
 
 has level => (

lib/MetaCPAN/Role/Script.pm

@@ -7,11 +7,16 @@ use MooseX::Types::ElasticSearch qw( ES );
 use IO::Prompt::Tiny             qw( prompt );
 use Log::Contextual              qw( :log :dlog );
 use MetaCPAN::Model              ();
-use MetaCPAN::Types::TypeTiny    qw( Bool HashRef Int Path Str );
+use MetaCPAN::Types::TypeTiny    qw( AbsPath Bool HashRef Int Path Str );
 use MetaCPAN::Util               qw( root_dir );
 use Mojo::Server                 ();
 use Term::ANSIColor              qw( colored );
 
+use MooseX::Getopt::OptionTypeMap ();
+for my $type ( Path, AbsPath ) {
+    MooseX::Getopt::OptionTypeMap->add_option_type_to_map( $type, '=s' );
+}
+
 with( 'MetaCPAN::Role::HasConfig', 'MetaCPAN::Role::Fastly',
     'MetaCPAN::Role::Logger' );
 

lib/MetaCPAN/Types/TypeTiny.pm

@@ -121,13 +121,6 @@ coerce HashRefCPANMeta, from InstanceOf ['CPAN::Meta'], via {
     return $struct ? $struct : $_->as_struct;
 };
 
-# optionally add Getopt option type (adapted from MooseX::Types:Path::Class)
-if ( eval { require MooseX::Getopt; 1 } ) {
-    for my $type ( Path, AbsPath ) {
-        MooseX::Getopt::OptionTypeMap->add_option_type_to_map( $type, '=s' );
-    }
-}
-
 declare CommaSepOption, as ArrayRef [ StrMatch [qr{^[^, ]+$}] ];
 coerce CommaSepOption, from ArrayRef [Str], via {
     return [ map split(/\s*,\s*/), @$_ ];