1 files changed, 21 insertions, 21 deletions

diff --git a/lib/Reaction/UI/ViewPort/GridView/Entity.pm b/lib/Reaction/UI/ViewPort/GridView/Entity.pm
index 0437eb6..3011f7f 100644
--- a/lib/Reaction/UI/ViewPort/GridView/Entity.pm
+++ b/lib/Reaction/UI/ViewPort/GridView/Entity.pm
@@ -26,7 +26,7 @@ class Entity is 'Reaction::UI::ViewPort', which {
     $self->field_args( {Field => $field_args} ) if ref $field_args;
   };
 
-  implements build_fields => as {
+  implements _build_fields => as {
     my ($self) = @_;
     my $obj      = $self->object;
     my $args     = $self->has_field_args    ? $self->field_args    : {};
@@ -48,7 +48,7 @@ class Entity is 'Reaction::UI::ViewPort', which {
   implements get_builder_for => as {
     my ($self, $attr) = @_;
     my $attr_name = $attr->name;
-    my $builder = "build_fields_for_name_${attr_name}";
+    my $builder = "_build_fields_for_name_${attr_name}";
     return $builder if $self->can($builder);
     if ($attr->has_type_constraint) {
       my $constraint = $attr->type_constraint;
@@ -61,7 +61,7 @@ class Entity is 'Reaction::UI::ViewPort', which {
           foreach my $class ($name->meta->class_precedence_list) {
             my $mangled_name = $class;
             $mangled_name =~ s/:+/_/g;
-            my $builder = "build_fields_for_type_${mangled_name}";
+            my $builder = "_build_fields_for_type_${mangled_name}";
             return $builder if $self->can($builder);
           }
         }
@@ -71,13 +71,13 @@ class Entity is 'Reaction::UI::ViewPort', which {
           }
           my $mangled_name = $name;
           $mangled_name =~ s/:+/_/g;
-          my $builder = "build_fields_for_type_${mangled_name}";
+          my $builder = "_build_fields_for_type_${mangled_name}";
           return $builder if $self->can($builder);
         }
         $constraint = $constraint->parent;
       }
       if (!defined($constraint)) {
-        confess "Can't build field ${attr_name} of type ${base_name} without $builder method or build_fields_for_type_<type> method for type or any supertype";
+        confess "Can't build field ${attr_name} of type ${base_name} without $builder method or _build_fields_for_type_<type> method for type or any supertype";
       }
     } else {
       confess "Can't build field ${attr} without $builder method or type constraint";
@@ -85,7 +85,7 @@ class Entity is 'Reaction::UI::ViewPort', which {
   };
 
 
-  implements build_simple_field => as {
+  implements _build_simple_field => as {
     my ($self, $class, $obj, $attr, $args) = @_;
     my $attr_name = $attr->name;
     my %extra;
@@ -102,76 +102,76 @@ class Entity is 'Reaction::UI::ViewPort', which {
                       );
   };
 
-  implements build_fields_for_type_Num => as {
+  implements _build_fields_for_type_Num => as {
     my ($self, $obj, $attr, $args) = @_;
     $args->{Field}{$attr->name}{layout} = 'value/number'
       unless( exists  $args->{Field}{$attr->name}         &&
               exists  $args->{Field}{$attr->name}{layout} &&
               defined $args->{Field}{$attr->name}{layout}
             );
-    return $self->build_simple_field(Number, $obj, $attr, $args);
+    return $self->_build_simple_field(Number, $obj, $attr, $args);
   };
 
-  implements build_fields_for_type_Int => as {
+  implements _build_fields_for_type_Int => as {
     my ($self, $obj, $attr, $args) = @_;
     $args->{Field}{$attr->name}{layout} = 'value/number'
       unless( exists  $args->{Field}{$attr->name}         &&
               exists  $args->{Field}{$attr->name}{layout} &&
               defined $args->{Field}{$attr->name}{layout}
             );
-    return $self->build_simple_field(Number, $obj, $attr, $args);
+    return $self->_build_simple_field(Number, $obj, $attr, $args);
   };
 
-  implements build_fields_for_type_Bool => as {
+  implements _build_fields_for_type_Bool => as {
     my ($self, $obj, $attr, $args) = @_;
     $args->{Field}{$attr->name}{layout} = 'value/boolean'
       unless( exists  $args->{Field}{$attr->name}         &&
               exists  $args->{Field}{$attr->name}{layout} &&
               defined $args->{Field}{$attr->name}{layout}
             );
-    return $self->build_simple_field(Boolean, $obj, $attr, $args);
+    return $self->_build_simple_field(Boolean, $obj, $attr, $args);
   };
 
-  implements build_fields_for_type_Password => as { return };
+  implements _build_fields_for_type_Password => as { return };
 
-  implements build_fields_for_type_Str => as {
+  implements _build_fields_for_type_Str => as {
     my ($self, $obj, $attr, $args) = @_;
     $args->{Field}{$attr->name}{layout} = 'value/string'
       unless( exists  $args->{Field}{$attr->name}         &&
               exists  $args->{Field}{$attr->name}{layout} &&
               defined $args->{Field}{$attr->name}{layout}
             );
-    return $self->build_simple_field(String, $obj, $attr, $args);
+    return $self->_build_simple_field(String, $obj, $attr, $args);
   };
 
-  implements build_fields_for_type_SimpleStr => as {
+  implements _build_fields_for_type_SimpleStr => as {
     my ($self, $obj, $attr, $args) = @_;
     $args->{Field}{$attr->name}{layout} = 'value/string'
       unless( exists  $args->{Field}{$attr->name}         &&
               exists  $args->{Field}{$attr->name}{layout} &&
               defined $args->{Field}{$attr->name}{layout}
             );
-    return $self->build_simple_field(String, $obj, $attr, $args);
+    return $self->_build_simple_field(String, $obj, $attr, $args);
   };
 
-  implements build_fields_for_type_DateTime => as {
+  implements _build_fields_for_type_DateTime => as {
     my ($self, $obj, $attr, $args) = @_;
     $args->{Field}{$attr->name}{layout} = 'value/date_time'
       unless( exists  $args->{Field}{$attr->name}         &&
               exists  $args->{Field}{$attr->name}{layout} &&
               defined $args->{Field}{$attr->name}{layout}
             );
-    return $self->build_simple_field(DateTime, $obj, $attr, $args);
+    return $self->_build_simple_field(DateTime, $obj, $attr, $args);
   };
 
-  implements build_fields_for_type_Enum => as {
+  implements _build_fields_for_type_Enum => as {
     my ($self, $obj, $attr, $args) = @_;
     $args->{Field}{$attr->name}{layout} = 'value/string'
       unless( exists  $args->{Field}{$attr->name}         &&
               exists  $args->{Field}{$attr->name}{layout} &&
               defined $args->{Field}{$attr->name}{layout}
             );
-    return $self->build_simple_field(String, $obj, $attr, $args);
+    return $self->_build_simple_field(String, $obj, $attr, $args);
   };
 };