sub get_table_from_base { my $req = send_request( "SELECT TableName FROM DBC.TablesX WHERE DatabaseName = '$_[0]' AND TableKind = 'T'"); my @tables = map {${$_}[0]} @{$req->fetchall_arrayref([0])}; map {s/ *$//} @tables; return @tables; }

NAME

SQL::Exec::ODBC::Teradata - Specific support for the Teradata ODBC driver in SQL::Exec

SYNOPSIS

use SQL::Exec::ODBC::Teradata;

SQL::Exec::ODBC:Teradata::connect($server, $user, $password);

BUGS

Please report any bugs or feature requests to bug-dbix-puresql@rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=DBIx-PureSQL.

SEE ALSO

SQL::Exec and SQL::Exec::ODBC

AUTHOR

Mathias Kende (mathias@cpan.org)

COPYRIGHT & LICENSE

Copyright 2013 © Mathias Kende. All rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.