Select Code to Download

if ($self->datatype->[$_] =~ 
    /^(?:TINYINT|MEDIUMINT|SMALLINT|INT|INTEGER|BIGINT|FLOAT|DOUBLE)$/
+) {
    $hr_returnvalue->{$CurrentColumnName} *= 1;
                      # Multiply by 1 to create a numeric value.
}

C:\test>perl -MDevel::Peek -E"my $x = '12345'; Dump $x; $x *=1; Dump $
+x"
SV = PV(0x6cf50) at 0xc74e8
...
  PV = 0x67758 "12345"\0
  CUR = 5
  LEN = 8

for( 0 .. $#{$self->columns} ) {
    $CurrentColumnName = $self->columns->[$_];
...
    }
        
 # Fill empty fields with that field's default value, if such a value 
+is defined