Fix ::Row::NumifyGet breaking when using select/as or columns

Changes

@@ -1,6 +1,7 @@
 Revision history for {{$dist->name}}
 
 {{$NEXT}}
+       - Fix ::Row::NumifyGet breaking when using select/as or columns
 
 2.007002  2012-01-09 16:23:08 CST6CDT
        - Fix POD in AutoRemoveColumns (mattp)

lib/DBIx/Class/Helper/Row/NumifyGet.pm

@@ -3,6 +3,8 @@ package DBIx::Class::Helper::Row::NumifyGet;
 use strict;
 use warnings;
 
+use Try::Tiny;
+
 # ABSTRACT: Force numeric "context" on numeric columns
 
 sub get_column {
@@ -11,7 +13,7 @@ sub get_column {
    my $value = $self->next::method($col);
 
    $value += 0 if defined($value) and # for nullable and autoinc fields
-                  $self->_is_column_numeric($col);
+                  try { $self->_is_column_numeric($col) };
 
    return $value;
 }
@@ -24,7 +26,7 @@ sub get_columns {
    for (keys %columns) {
       $columns{$_} += 0
          if defined($columns{$_}) and # for nullable and autoinc fields
-            $self->_is_column_numeric($_);
+            try { $self->_is_column_numeric($_) };
    }
 
    return %columns;

t/08-getnum.t

@@ -6,6 +6,7 @@ use warnings;
 use lib 't/lib';
 use Test::More;
 use Test::Deep;
+use Test::Exception;
 use List::Util 'first';
 
 use TestSchema;
@@ -37,4 +38,14 @@ for (map +{$_->get_inflated_columns}, $schema->resultset('Foo')->all) {
    ok(is_numeric($_->{id}), "id $_->{id} has been 'numified'");
 }
 
+for (map +{$_->get_inflated_columns}, $schema->resultset('Foo')->all) {
+   ok(is_numeric($_->{id}), "id $_->{id} has been 'numified'");
+}
+
+for ($schema->resultset('Foo')->search(undef, {
+   columns => { lol => 'id' },
+})->all) {
+   lives_ok { $_->get_column('lol') } "doesn't break when using columns";
+}
+
 done_testing;