[catagits/Reaction.git] / lib / Reaction / UI / Widget / DisplayField / RelatedObject.pm

package Reaction::UI::Widget::DisplayField::RelatedObject;

use Reaction::UI::WidgetClass;

class RelatedObject, which {
  widget renders [ qw/label value/ => { viewport => func(self => 'viewport') } ];
  label  renders [ string { $_{viewport}->label } ];
  value  renders [ string { $_{viewport}->value_string } ];
};

1;

__END__;

=for layout widget

[% content %]

=for layout label

<strong > [ % content %]: </strong>

=for layout value

[% content %]

=cut
Commit	Line	Data
7b78a39d	1	package Reaction::UI::Widget::DisplayField::RelatedObject;
	2
	3	use Reaction::UI::WidgetClass;
	4
	5	class RelatedObject, which {
	6	widget renders [ qw/label value/ => { viewport => func(self => 'viewport') } ];
	7	label renders [ string { $_{viewport}->label } ];
	8	value renders [ string { $_{viewport}->value_string } ];
	9	};
	10
	11	1;
	12
	13	__END__;
	14
	15	=for layout widget
	16
	17	[% content %]
	18
	19	=for layout label
	20
	21	<strong > [ % content %]: </strong>
	22
	23	=for layout value
	24
	25	[% content %]
	26
	27	=cut