1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
package SQL::Translator::Parser::DBI::MySQL;
# -------------------------------------------------------------------
# Copyright (C) 2002-2009 SQLFairy Authors
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License as
# published by the Free Software Foundation; version 2.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
# 02111-1307 USA
# -------------------------------------------------------------------
=head1 NAME
SQL::Translator::Parser::DBI::MySQL - parser for DBD::mysql
=head1 SYNOPSIS
This module will be invoked automatically by SQL::Translator::Parser::DBI,
so there is no need to use it directly.
=head1 DESCRIPTION
Uses SQL calls to query database directly for schema rather than parsing
a create file. Should be much faster for larger schemas.
=cut
use strict;
use DBI;
use Data::Dumper;
use SQL::Translator::Schema::Constants;
use SQL::Translator::Parser::MySQL;
use vars qw[ $DEBUG $VERSION @EXPORT_OK ];
$VERSION = '1.59';
$DEBUG = 0 unless defined $DEBUG;
# -------------------------------------------------------------------
sub parse {
my ( $tr, $dbh ) = @_;
my $schema = $tr->schema;
my @table_names = @{ $dbh->selectcol_arrayref('show tables') };
my @skip_tables = defined $tr->parser_args->{skip}
? split(/,/, $tr->parser_args->{skip})
: ();
$dbh->{'FetchHashKeyName'} = 'NAME_lc';
my $create;
for my $table_name ( @table_names ) {
next if (grep /^$table_name$/, @skip_tables);
my $sth = $dbh->prepare("show create table $table_name");
$sth->execute;
my $table = $sth->fetchrow_hashref;
$create .= $table->{'create table'} . ";\n\n";
}
SQL::Translator::Parser::MySQL::parse( $tr, $create );
return 1;
}
1;
# -------------------------------------------------------------------
# Where man is not nature is barren.
# William Blake
# -------------------------------------------------------------------
=pod
=head1 AUTHOR
Ken Youens-Clark E<lt>kclark@cpan.orgE<gt>.
=head1 SEE ALSO
SQL::Translator.
=cut
|
