package SQL::Translator::Parser::DBI::Sybase;
-# $Id: Sybase.pm,v 1.3 2003-10-04 00:10:00 phrrngtn Exp $
-
=head1 NAME
SQL::Translator::Parser::DBI::Sybase - parser for DBD::Sybase
=cut
use strict;
+use warnings;
use DBI;
use SQL::Translator::Schema;
use Data::Dumper;
-use vars qw[ $DEBUG $VERSION @EXPORT_OK ];
-$VERSION = sprintf "%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/;
+our ( $DEBUG, @EXPORT_OK );
+our $VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
no strict 'refs';
-# -------------------------------------------------------------------
sub parse {
my ( $tr, $dbh ) = @_;
# it is much quicker to slurp back everything all at once rather
# than make repeated calls
- $sth = $dbh->column_info();
+ $sth = $dbh->column_info(undef, undef, undef, undef);
foreach my $c (@{$sth->fetchall_arrayref({})}) {
);
}
+
### Permissions
### Groups
### Users
### Aliases
### Logins
-return 1;
+ return 1;
}
1;
=head1 AUTHOR
-Paul Harrington E<lt>harringp@deshaw.comE<gt>,
+Paul Harrington E<lt>harringp@deshaw.comE<gt>.
=head1 SEE ALSO
DBI, DBD::Sybase, SQL::Translator::Schema.
=cut
-