diff options
author | groditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2007-11-13 21:43:36 +0000 |
---|---|---|
committer | groditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2007-11-13 21:43:36 +0000 |
commit | 89939ff9e89dbee9a8e4e7b8a5614f1fff0a74ae (patch) | |
tree | 3c34547fc126c6f6f0f8d078ba5d100bad42d74a /lib/Reaction/UI/ViewPort/Field.pm | |
parent | cb52a02e82517266f669680fc67f6df2f6193bdb (diff) | |
download | reaction-89939ff9e89dbee9a8e4e7b8a5614f1fff0a74ae.tar.gz reaction-89939ff9e89dbee9a8e4e7b8a5614f1fff0a74ae.zip |
changes so far for new moose / mop
Diffstat (limited to 'lib/Reaction/UI/ViewPort/Field.pm')
-rw-r--r-- | lib/Reaction/UI/ViewPort/Field.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Reaction/UI/ViewPort/Field.pm b/lib/Reaction/UI/ViewPort/Field.pm index 99a51f3..f0fa0f0 100644 --- a/lib/Reaction/UI/ViewPort/Field.pm +++ b/lib/Reaction/UI/ViewPort/Field.pm @@ -40,14 +40,14 @@ class Field is 'Reaction::UI::ViewPort', which { } }; - implements build_label => as { + implements _build_label => as { my ($self) = @_; my $label = join(' ', map { ucfirst } split('_', $self->name)); # print STDERR "Field " . $self->name . " has label '$label'\n"; return $label; }; - implements build_value => as { + implements _build_value => as { my ($self) = @_; if ($self->has_attribute) { my $reader = $self->attribute->get_read_method; |