Remove double has_column check in new=>store_column
Peter Rabbitson [Tue, 15 Jul 2014 05:14:31 +0000 (07:14 +0200)]
Standardize exception texts across ::Row

lib/DBIx/Class/Row.pm

index 2aa5b23..7277ee2 100644 (file)
@@ -263,8 +263,6 @@ sub new {
           next;
         }
       }
-      $new->throw_exception("No such column '$key' on $class")
-        unless $class->has_column($key);
       $new->store_column($key => $attrs->{$key});
     }
 
@@ -673,7 +671,7 @@ sub get_column {
     ));
   }
 
-  $self->throw_exception( "No such column '${column}'" )
+  $self->throw_exception( "No such column '${column}' on " . ref $self )
     unless $self->has_column($column);
 
   return undef;
@@ -801,7 +799,7 @@ really changed.
 sub make_column_dirty {
   my ($self, $column) = @_;
 
-  $self->throw_exception( "No such column '${column}'" )
+  $self->throw_exception( "No such column '${column}' on " . ref $self )
     unless exists $self->{_column_data}{$column} || $self->has_column($column);
 
   # the entire clean/dirty code relies on exists, not on true/false
@@ -1199,7 +1197,7 @@ extend this method to catch all data setting methods.
 
 sub store_column {
   my ($self, $column, $value) = @_;
-  $self->throw_exception( "No such column '${column}'" )
+  $self->throw_exception( "No such column '${column}' on " . ref $self )
     unless exists $self->{_column_data}{$column} || $self->has_column($column);
   $self->throw_exception( "set_column called for ${column} without value" )
     if @_ < 3;