view Lib/IMPL/SQL/Types.pm @ 166:4267a2ac3d46

Added Class::Template, Rewritten SQL::Schema 'use parent' directive instead of 'use base'
author wizard
date Sat, 23 Apr 2011 23:12:06 +0400
parents 76515373dac0
children
line wrap: on
line source

package IMPL::SQL::Types;
use strict;
use warnings;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(&Integer &Varchar &Float &Real &Text &Binary &DateTime);

require IMPL::SQL::Schema::Type;

sub Integer() {
    return IMPL::SQL::Schema::Type->new(name => 'INTEGER');
}

sub Varchar($) {
    return IMPL::SQL::Schema::Type->new(name => 'VARCHAR', maxLength => shift);
}

sub Float($) {
    return IMPL::SQL::Schema::Type->new(name => 'FLOAT', scale => shift);
}

sub Real() {
    return IMPL::SQL::Schema::Type->new(name => 'REAL');
}

sub Text() {
    return IMPL::SQL::Schema::Type->new(name => 'TEXT');
}

sub Binary() {
    return IMPL::SQL::Schema::Type->new(name => 'BINARY');
}

sub DateTime() {
    return IMPL::SQL::Schema::Type->new(name => 'DATETIME');
}

1;