aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Reaction/UI/ViewPort/Object.pm
diff options
context:
space:
mode:
authorgroditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>2008-08-18 16:20:13 +0000
committergroditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>2008-08-18 16:20:13 +0000
commit371430b40525607496eb995a6c0976a11ea28b43 (patch)
tree3d83b0a106d4ace29ba62e72e38ac4bca0dee5bd /lib/Reaction/UI/ViewPort/Object.pm
parent0588557330ac9fceb8e13f8b740d05a49f55f2dc (diff)
downloadreaction-371430b40525607496eb995a6c0976a11ea28b43.tar.gz
reaction-371430b40525607496eb995a6c0976a11ea28b43.zip
kill incorrect use of meta
Diffstat (limited to 'lib/Reaction/UI/ViewPort/Object.pm')
-rw-r--r--lib/Reaction/UI/ViewPort/Object.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Reaction/UI/ViewPort/Object.pm b/lib/Reaction/UI/ViewPort/Object.pm
index bc62459..12838dd 100644
--- a/lib/Reaction/UI/ViewPort/Object.pm
+++ b/lib/Reaction/UI/ViewPort/Object.pm
@@ -44,8 +44,9 @@ sub _build_fields {
my $obj = $self->model;
my $args = $self->has_field_args ? $self->field_args : {};
my @fields;
+ my %param_attrs = map { $_->name => $_ } $obj->parameter_attributes;
for my $field_name (@{ $self->computed_field_order }) {
- my $attr = $obj->meta->find_attribute_by_name($field_name);
+ my $attr = $param_attrs{$field_name};
my $meth = $self->builder_cache->{$field_name} ||= $self->get_builder_for($attr);
my $field = $self->$meth($attr, ($args->{$field_name} || {}));
push(@fields, $field) if $field;