r31500@martha (orig r1229): purge | 2009-09-11 05:51:11 -0400

[catagits/Reaction.git] / lib / Reaction / UI / ViewPort / SiteLayout.pm

diff --git a/lib/Reaction/UI/ViewPort/SiteLayout.pm b/lib/Reaction/UI/ViewPort/SiteLayout.pm
index 15c637c..227e8ac 100644 (file)
--- a/lib/Reaction/UI/ViewPort/SiteLayout.pm
+++ b/lib/Reaction/UI/ViewPort/SiteLayout.pm
@@ -1,34 +1,20 @@
 package Reaction::UI::ViewPort::SiteLayout;
 
 use Reaction::Class;
-use aliased 'Reaction::UI::ViewPort';
+extends 'Reaction::UI::ViewPort';
 
 use namespace::clean -except => [ qw(meta) ];
-extends ViewPort;
-
-{
-    use Moose::Util::TypeConstraints qw/subtype where coerce from via/;
-
-    my $str_type = subtype 'Str'    => where { 1 };
-    my $uri_type = subtype 'Object' => where { $_->isa('URI') };
-
-    coerce $str_type
-        => from $uri_type
-        => via { "$_[0]" };
-
-    has 'static_base_uri' => (isa => $str_type, coerce => 1, is => 'rw', lazy_fail => 1);
-
-    no Moose::Util::TypeConstraints;
-}
-
-has 'title' => (isa => 'Str', is => 'rw', lazy_fail => 1);
+use MooseX::Types::Moose qw/Str HashRef/;
 
+has 'title' => (isa => Str, is => 'rw', lazy_fail => 1);
+has 'static_base_uri' => (isa => Str, is => 'rw', lazy_fail => 1);
 has 'meta_info' => (
-       is => 'rw', isa => 'HashRef',
-       required => '1', default => sub { {} }
+  is => 'rw',
+  isa => HashRef,
+  required => 1,
+  default => sub { {} }
 );
 
 __PACKAGE__->meta->make_immutable;
 
-
 1;