From: groditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>
Date: Thu, 10 Jul 2008 19:04:23 +0000 (+0000)
Subject: fix the parameter attributes goof re meta
X-Git-Tag: v0.002000~273
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d88f18a05c2bb2536031f46a09a54e14341e73d4;p=catagits%2FReaction.git

fix the parameter attributes goof re meta
---

diff --git a/lib/Reaction/InterfaceModel/Reflector/DBIC.pm b/lib/Reaction/InterfaceModel/Reflector/DBIC.pm
index dc9a947..cde8c79 100644
--- a/lib/Reaction/InterfaceModel/Reflector/DBIC.pm
+++ b/lib/Reaction/InterfaceModel/Reflector/DBIC.pm
@@ -763,7 +763,7 @@ class DBIC, which {
     # attributes => qr//,               #DWIM, treated as [qr//]
     # attributes => [{...}]             #DWIM, treat as [qr/./, {...} ]
     # attributes => [[-exclude => ...]] #DWIM, treat as [qr/./, [-exclude => ...]]
-    my $attr_haystack = [ map { $_->name } $object->meta->parameter_attributes ];
+    my $attr_haystack = [ map { $_->name } $object->parameter_attributes ];
     if(!defined $attr_rules){
       $attr_rules = [qr/./];
     } elsif( (!ref $attr_rules && $attr_rules) || (ref $attr_rules eq 'Regexp') ){
diff --git a/lib/Reaction/UI/ViewPort/Collection/Grid.pm b/lib/Reaction/UI/ViewPort/Collection/Grid.pm
index 3719aa7..66ce8d3 100644
--- a/lib/Reaction/UI/ViewPort/Collection/Grid.pm
+++ b/lib/Reaction/UI/ViewPort/Collection/Grid.pm
@@ -41,7 +41,7 @@ class Grid is 'Reaction::UI::ViewPort::Collection', which {
           )
          )  }
         grep { defined $_->get_read_method }
-          $self->current_collection->member_type->meta->parameter_attributes;
+          $self->current_collection->member_type->parameter_attributes;
 
     return $self->sort_by_spec($self->field_order, \@names);
   };
diff --git a/lib/Reaction/UI/ViewPort/Object.pm b/lib/Reaction/UI/ViewPort/Object.pm
index 5c56e90..7efbe15 100644
--- a/lib/Reaction/UI/ViewPort/Object.pm
+++ b/lib/Reaction/UI/ViewPort/Object.pm
@@ -58,7 +58,7 @@ class Object is 'Reaction::UI::ViewPort', which {
     my %excluded = map { $_ => undef } @{ $self->excluded_fields };
     #treat _$field_name as private and exclude fields with no reader
     my @names = grep { $_ !~ /^_/ && !exists($excluded{$_})} map { $_->name }
-      grep { defined $_->get_read_method } $self->model->meta->parameter_attributes;
+      grep { defined $_->get_read_method } $self->model->parameter_attributes;
     return $self->sort_by_spec($self->field_order || [], \@names);
   };