Allow broken resultsource-class-derived objects to still work

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / Row.pm

diff --git a/lib/DBIx/Class/Row.pm b/lib/DBIx/Class/Row.pm
index 72bb2fc..554023b 100644 (file)
--- a/lib/DBIx/Class/Row.pm
+++ b/lib/DBIx/Class/Row.pm
@@ -800,7 +800,7 @@ sub set_column {
     my $colinfo = $self->column_info ($column);
 
     # cache for speed
-    if (not defined $colinfo->{is_numeric}) {
+    if (not defined $colinfo->{is_numeric} && $self->_source_handle) {
       $colinfo->{is_numeric} =
         $self->result_source->schema->storage->is_datatype_numeric ($colinfo->{data_type})
           ? 1