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