Changeset 11028

Timestamp:

05/03/08 20:02:06 (7 months ago)

Author:

daisuke

Message:

$req->uri is an object

Location:

lang/perl/HTTP-Engine/branches/moose/lib/HTTP/Engine

Files:

• Request.pm (modified) (2 diffs)
• Types/Core.pm (modified) (2 diffs)

lang/perl/HTTP-Engine/branches/moose/lib/HTTP/Engine/Request.pm

@@ -1 +1 @@
 package HTTP::Engine::Request;
 use Moose;
+with 'MooseX::Object::Pluggable';
+
+use Carp;
+use HTTP::Headers;
+use HTTP::Engine::Types::Core qw( Uri );
 use HTTP::Engine::Types::Request qw( Header );
-with 'MooseX::Object::Pluggable';
-use Carp;
 use IO::Socket qw[AF_INET inet_aton];
-use HTTP::Headers;
 
 # the IP address of the client
@@ -50 +52 @@
 has uri => (
     is  => 'rw',
-    # isa => 'URI',
+    isa => 'Uri',
+    coerce => 1,
 );
 

lang/perl/HTTP-Engine/branches/moose/lib/HTTP/Engine/Types/Core.pm

@@ -2 +2 @@
 
 use MooseX::Types
-    -declare => [qw/Interface/];
+    -declare => [qw/Interface Uri/];
 use MooseX::Types::Moose qw( Object HashRef );
 
 use Class::MOP;
 use UNIVERSAL::require;
+use URI;
 
 subtype Interface
@@ -32 +33 @@
 ;
 
+subtype Uri
+    => as 'Object'
+    => where { $_->isa('URI') }
+;
+
+coerce Uri
+    => from 'Str'
+        => via { URI->new($_) }
+;
+
 1;