Changeset 25968

Timestamp:

12/05/08 21:26:13 (5 weeks ago)

Author:

yappo

Message:

s/StrOrUndef/Str | Undef/

Location:

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

Files:

• Interface/POE.pm (modified) (2 diffs)
• Interface/ServerSimple.pm (modified) (2 diffs)
• Types/Core.pm (modified) (2 diffs)

lang/perl/HTTP-Engine/branches/mouse/lib/HTTP/Engine/Interface/POE.pm

@@ -13 +13 @@
     }
 ;
-use HTTP::Engine::Types::Core 'StrOrUndef';
 
 use POE qw/
@@ -36 +35 @@
 has alias => (
     is       => 'ro',
-    isa      => StrOrUndef,
+    isa      => 'Str | Undef',
 );
 

lang/perl/HTTP-Engine/branches/mouse/lib/HTTP/Engine/Interface/ServerSimple.pm

@@ -6 +6 @@
     }
 ;
-use HTTP::Engine::Types::Core 'StrOrUndef';
 
 use HTTP::Server::Simple 0.34;
@@ -25 +24 @@
 has net_server => (
     is      => 'ro',
-    isa     => StrOrUndef,
+    isa     => 'Str | Undef',
     default => undef,
 );

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

@@ -2 +2 @@
 use strict;
 
-use MouseX::Types -declare => [qw/Interface Uri Header Handler StrOrUndef/];
+use MouseX::Types -declare => [qw/Interface Uri Header Handler/];
 
 use URI;
@@ -60 +60 @@
 };
 
-do {
-    # FIXME: temporary hack
-    subtype StrOrUndef, where { 1 };
-};
-
 1;