lib/Reaction/UI/Widget/URI.pm

   1 package Reaction::UI::Widget::URI;
   2
   3 use Reaction::UI::WidgetClass;
   4 use namespace::clean -except => [ qw(meta) ];
   5
   6 before fragment widget {
   7   arg uri => $_{viewport}->uri;
   8 };
   9
  10 implements fragment display_fragment {
  11   my $vp = $_{viewport};
  12   return unless $vp->has_display;
  13   my $display = $vp->display;
  14   if( blessed($display) && $display->isa('Reaction::UI::ViewPort')){
  15     arg '_' => $display;
  16     render 'viewport';
  17   } else {
  18     arg string_value => $display;
  19     render 'display_string';
  20   }
  21 };
  22
  23 __PACKAGE__->meta->make_immutable;
  24
  25
  26 1;
  27
  28 __END__;