sub GetTypeName {
  my( $grid, $r, $c ) = @_;

  return $c == 0 ? 'double' :					# Col 0 Double
         $c == 1 ? 'bool' :					# Col 1 Boolean
                   'string';					# All others String
}

sub CanGetValueAs {
  my( $grid, $r, $c, $type ) = @_;

  return $c == 0 ? $type eq 'double' :
         $c == 1 ? $type eq 'bool' :
                   $type eq 'string';
}