From: Peter Rabbitson <ribasushi@cpan.org>
Date: Tue, 15 Jul 2014 05:14:31 +0000 (+0200)
Subject: Remove double has_column check in new=>store_column
X-Git-Tag: v0.082800~141
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=75ef16a70ae561085c005a9564748bb4dfb80009;p=dbsrgits%2FDBIx-Class.git

Remove double has_column check in new=>store_column

Standardize exception texts across ::Row
---

diff --git a/lib/DBIx/Class/Row.pm b/lib/DBIx/Class/Row.pm
index 2aa5b23..7277ee2 100644
--- a/lib/DBIx/Class/Row.pm
+++ b/lib/DBIx/Class/Row.pm
@@ -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;