view release on metacpan or  search on metacpan

t/40-alltypes.t  view on Meta::CPAN

    push @{$expected{TYPE}},      16;
    push @{$expected{SCALE}},     0;
    push @{$expected{PRECISION}}, 1;

    $def =~ s/[\r\n]+$/,\n/;
    $def .= <<DEF;
    A_BOOLEAN            BOOLEAN
DEF
}

for (split m/,[\r\n]+/ => $def) {
    my ($f, $d) = m/^\s*(\S+)\s+(\S+)/;
    push @{$expected{NAME}},    $f;
    push @{$expected{NAME_lc}}, lc $f;
    push @{$expected{NAME_uc}}, uc $f;
    push @{$expected{DEF}},     $d;
}

#
#   Find a possible new table name
#