Help for this page

Select Code to Download

Select or download this

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

...
         $c == 1 ? $type eq 'bool' :
                   $type eq 'string';
}