Types::URI -> MetaCPAN::Types::TypeTiny

Author: mohawk2

lib/MetaCPAN/Model/Email/PAUSE.pm

@@ -6,8 +6,7 @@ use Email::Sender::Simple qw( sendmail );
 use Email::Sender::Transport::SMTP ();
 use Email::Simple                  ();
 use Encode                         ();
-use Types::URI qw( Uri );
-use MetaCPAN::Types::TypeTiny qw( Object );
+use MetaCPAN::Types::TypeTiny qw( Object Uri );
 use Try::Tiny qw( catch try );
 
 with('MetaCPAN::Role::HasConfig');

lib/MetaCPAN/Pod/Renderer.pm

@@ -3,7 +3,7 @@ package MetaCPAN::Pod::Renderer;
 use MetaCPAN::Moose;
 
 use MetaCPAN::Pod::XHTML;
-use Types::URI qw( Uri );
+use MetaCPAN::Types::TypeTiny qw( Uri );
 use Pod::Markdown;
 use Pod::POM;
 use Pod::POM::View::Pod;

lib/MetaCPAN/Script/CPANTesters.pm

@@ -9,8 +9,7 @@ use File::Temp qw(tempdir);
 use File::stat qw(stat);
 use IO::Uncompress::Bunzip2 qw(bunzip2);
 use Log::Contextual qw( :log :dlog );
-use Types::URI qw( Uri );
-use MetaCPAN::Types::TypeTiny qw( Path Bool );
+use MetaCPAN::Types::TypeTiny qw( Path Bool Uri );
 use ElasticSearchX::Model::Document::Types qw(ESBulk);
 use Moose;
 

lib/MetaCPAN/Script/CPANTestersAPI.pm

@@ -5,7 +5,7 @@ use warnings;
 
 use Log::Contextual qw( :log :dlog );
 use Cpanel::JSON::XS qw( decode_json );
-use Types::URI qw( Uri );
+use MetaCPAN::Types::TypeTiny qw( Uri );
 use ElasticSearchX::Model::Document::Types qw(ESBulk);
 use Moose;
 

lib/MetaCPAN/Script/Cover.pm

@@ -5,8 +5,7 @@ use namespace::autoclean;
 
 use Cpanel::JSON::XS qw( decode_json );
 use Log::Contextual qw( :log :dlog );
-use Types::URI qw( Uri );
-use MetaCPAN::Types::TypeTiny qw( Bool Str );
+use MetaCPAN::Types::TypeTiny qw( Bool Str Uri );
 use Path::Tiny qw( path );
 
 with 'MetaCPAN::Role::Script', 'MooseX::Getopt';

lib/MetaCPAN/Script/River.pm

@@ -5,8 +5,7 @@ use namespace::autoclean;
 
 use Cpanel::JSON::XS qw( decode_json );
 use Log::Contextual qw( :log :dlog );
-use Types::URI qw( Uri );
-use MetaCPAN::Types::TypeTiny qw( ArrayRef Str );
+use MetaCPAN::Types::TypeTiny qw( ArrayRef Str Uri );
 
 with 'MetaCPAN::Role::Script', 'MooseX::Getopt';
 

lib/MetaCPAN/Types/TypeTiny.pm

@@ -27,7 +27,7 @@ use Type::Library -base, -declare => (
         )
 );
 use Type::Utils -all;
-BEGIN { extends qw( Types::Standard Types::Path::Tiny ) }
+BEGIN { extends qw( Types::Standard Types::Path::Tiny Types::URI ) }
 
 declare Stringable, as Object, where { overload::Method( $_, '""' ) };