1 2 3use strict; 4 5use Tangram::Type::Scalar; 6 7package Tangram::Type::TimeAndDate; 8 9use vars qw(@ISA); 10 @ISA = qw( Tangram::Type::String ); 11 12$Tangram::Schema::TYPES{rawdatetime} = Tangram::Type::TimeAndDate->new; 13 14sub coldefs 15{ 16 my ($self, $cols, $members, $schema) = @_; 17 $self->_coldefs($cols, $members, "DATETIME $schema->{sql}{default_null}"); 18} 19 201; 21