fixes for site layout

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

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;