[libtypes-uri-perl] 12/15: runtime load IRI

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to branch master
in repository libtypes-uri-perl.

commit 8bb3de4c2833dcc1a67e96ae1a63a84cf464727c
Author: Toby Inkster <mail at tobyinkster.co.uk>
Date:   Sun Sep 28 07:36:52 2014 +0100

    runtime load IRI
---
 lib/Types/URI.pm | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/lib/Types/URI.pm b/lib/Types/URI.pm
index f7a5dcf..918f333 100644
--- a/lib/Types/URI.pm
+++ b/lib/Types/URI.pm
@@ -47,15 +47,15 @@ __PACKAGE__->meta->add_type({
 });
 
 Iri->coercion->add_type_coercions(
-	Uuid        ,=> q{ do { use IRI (); "IRI"->new("urn:uuid:$_") } },
-	Str         ,=> q{ do { use IRI (); "IRI"->new($_) } },
-	Path        ,=> q{ do { use IRI (); my $u = "URI::file"->new($_); "IRI"->new($u->as_string) } },
-	ScalarRef   ,=> q{ do { use IRI (); my $u = "URI"->new("data:"); $u->data($$_); "IRI"->new($u->as_string) } },
-	HashRef     ,=> q{ do { use IRI (); "IRI"->new(URI::FromHash::uri(%$_)) } },
-	$TrineNode  ,=> q{ do { use IRI (); "IRI"->new($_->uri_value) } },
-	$TrineNS    ,=> q{ do { use IRI (); "IRI"->new($_->uri->uri_value) } },
-	$XmlNS      ,=> q{ do { use IRI (); "IRI"->new($_->uri) } },
-	Uri         ,=> q{ do { use IRI (); "IRI"->new($_->as_string) } },
+	Uuid        ,=> q{ do { require IRI; "IRI"->new("urn:uuid:$_") } },
+	Str         ,=> q{ do { require IRI; "IRI"->new($_) } },
+	Path        ,=> q{ do { require IRI; my $u = "URI::file"->new($_); "IRI"->new($u->as_string) } },
+	ScalarRef   ,=> q{ do { require IRI; my $u = "URI"->new("data:"); $u->data($$_); "IRI"->new($u->as_string) } },
+	HashRef     ,=> q{ do { require IRI; "IRI"->new(URI::FromHash::uri(%$_)) } },
+	$TrineNode  ,=> q{ do { require IRI; "IRI"->new($_->uri_value) } },
+	$TrineNS    ,=> q{ do { require IRI; "IRI"->new($_->uri->uri_value) } },
+	$XmlNS      ,=> q{ do { require IRI; "IRI"->new($_->uri) } },
+	Uri         ,=> q{ do { require IRI; "IRI"->new($_->as_string) } },
 );
 
 __PACKAGE__->meta->add_type({

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libtypes-uri-perl.git