fixes for site layout

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

diff --git a/lib/Reaction/UI/Widget/SiteLayout.pm b/lib/Reaction/UI/Widget/SiteLayout.pm
index 73406a9..fce46e2 100644 (file)
--- a/lib/Reaction/UI/Widget/SiteLayout.pm
+++ b/lib/Reaction/UI/Widget/SiteLayout.pm
@@ -2,14 +2,39 @@ package Reaction::UI::Widget::SiteLayout;
 
 use Reaction::UI::WidgetClass;
 use aliased 'Reaction::UI::Widget::Container';
+use MooseX::Types::Moose 'HashRef';
 
 class SiteLayout is Container, which {
 
+  has 'http_header' => (
+    isa => HashRef, is => 'rw',
+    default => sub { {} }
+  );
+
   after fragment widget {
     arg static_base => $_{viewport}->static_base_uri;
     arg title => $_{viewport}->title;
   };
 
+  implements fragment meta_info {
+    my $self = shift;
+    if ( $_{viewport}->meta_info->{'http_header'} ) {
+      $self->http_header( delete $_{viewport}->meta_info->{'http_header'} );
+      render 'meta_http_header' => over [keys %{$self->http_header}];
+    }
+    render 'meta_member' => over [keys %{$_{viewport}->meta_info}];
+  };
+
+  implements fragment meta_http_header {
+    arg 'meta_name' => $_;
+    arg 'meta_value' => shift->http_header->{$_};
+  };
+
+  implements fragment meta_member {
+    arg 'meta_name' => $_;
+    arg 'meta_value' => $_{viewport}->meta_info->{$_};
+  };
+
 };
 
 1;