lib/Reaction/UI/Widget/Value.pm

   1 package Reaction::UI::Widget::Value;
   2
   3 use Reaction::UI::WidgetClass;
   4
   5 use namespace::clean -except => [ qw(meta) ];
   6
   7
   8 before fragment widget {
   9   if ($_{viewport}->can('value_string')) {
  10     arg value => $_{viewport}->value_string;
  11   } elsif($_{viewport}->can('value')) {
  12     arg value => $_{viewport}->value;
  13   }
  14 };
  15
  16 __PACKAGE__->meta->make_immutable;
  17
  18
  19 1;
  20
  21 __END__;
  22
  23 =head1 NAME
  24
  25 Reaction::UI::Widget::Value
  26
  27 =head1 DESCRIPTION
  28
  29 =head1 FRAGMENTS
  30
  31 =head2 widget
  32
  33 Additional available arguments
  34
  35 =over 4
  36
  37 =item B<value> - The C<value_string> or C<value> of the viewport
  38
  39 =back
  40
  41 =head1 AUTHORS
  42
  43 See L<Reaction::Class> for authors.
  44
  45 =head1 LICENSE
  46
  47 See L<Reaction::Class> for the license.
  48
  49 =cut