2ff669a04b2b22bcc40c19c2b134d9f9dad242ca
[catagits/Reaction.git] / lib / Reaction / UI / Widget / Field / Mutable.pm
1 package Reaction::UI::Widget::Field::Mutable;
2
3 use Reaction::UI::WidgetClass;
4
5 class Field is 'Reaction::UI::Widget::Field', which {
6
7    before fragment widget {
8      arg 'field_id' => event_id 'value';
9      arg 'field_name' => event_id 'value';
10      arg 'field_type' => 'text';
11    };
12
13    implements fragment message_fragment {
14      if (my $message = $_{viewport}->message) {
15        arg message => $message;
16        render 'message';
17      }
18    };
19
20 };
21
22 1;
23
24 __END__;