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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
package SQL::Translator::Parser::YAML;
use strict;
use warnings;
our $VERSION = '1.66';
use SQL::Translator::Schema;
use SQL::Translator::Utils qw(header_comment);
use Data::Dumper;
use YAML qw(Load);
sub parse {
my ($translator, $data) = @_;
$data = Load($data);
$data = $data->{'schema'};
warn "YAML data:", Dumper($data) if $translator->debug;
my $schema = $translator->schema;
#
# Tables
#
my @tables = map { $data->{'tables'}{ $_->[1] } }
sort { $a->[0] <=> $b->[0] }
map { [ $data->{'tables'}{$_}{'order'} || 0, $_ ] }
keys %{ $data->{'tables'} };
for my $tdata (@tables) {
my $table = $schema->add_table(map { $tdata->{$_} ? ($_ => $tdata->{$_}) : () } (qw/name extra options/))
or die $schema->error;
my @fields = map { $tdata->{'fields'}{ $_->[1] } }
sort { $a->[0] <=> $b->[0] }
map { [ $tdata->{'fields'}{$_}{'order'}, $_ ] }
keys %{ $tdata->{'fields'} };
for my $fdata (@fields) {
$table->add_field(%$fdata) or die $table->error;
$table->primary_key($fdata->{'name'})
if $fdata->{'is_primary_key'};
}
for my $idata (@{ $tdata->{'indices'} || [] }) {
$table->add_index(%$idata) or die $table->error;
}
for my $cdata (@{ $tdata->{'constraints'} || [] }) {
$table->add_constraint(%$cdata) or die $table->error;
}
$table->comments($tdata->{'comments'})
if exists $tdata->{'comments'};
}
#
# Views
#
my @views = map { $data->{'views'}{ $_->[1] } }
sort { $a->[0] <=> $b->[0] }
map { [ $data->{'views'}{$_}{'order'}, $_ ] }
keys %{ $data->{'views'} };
for my $vdata (@views) {
$schema->add_view(%$vdata) or die $schema->error;
}
#
# Triggers
#
my @triggers = map { $data->{'triggers'}{ $_->[1] } }
sort { $a->[0] <=> $b->[0] }
map { [ $data->{'triggers'}{$_}{'order'}, $_ ] }
keys %{ $data->{'triggers'} };
for my $tdata (@triggers) {
$schema->add_trigger(%$tdata) or die $schema->error;
}
#
# Procedures
#
my @procedures = map { $data->{'procedures'}{ $_->[1] } }
sort { $a->[0] <=> $b->[0] }
map { [ $data->{'procedures'}{$_}{'order'}, $_ ] }
keys %{ $data->{'procedures'} };
for my $tdata (@procedures) {
$schema->add_procedure(%$tdata) or die $schema->error;
}
if (my $tr_data = $data->{'translator'}) {
$translator->add_drop_table($tr_data->{'add_drop_table'});
$translator->filename($tr_data->{'filename'});
$translator->no_comments($tr_data->{'no_comments'});
$translator->parser_args($tr_data->{'parser_args'});
$translator->producer_args($tr_data->{'producer_args'});
$translator->parser_type($tr_data->{'parser_type'});
$translator->producer_type($tr_data->{'producer_type'});
$translator->show_warnings($tr_data->{'show_warnings'});
$translator->trace($tr_data->{'trace'});
}
return 1;
}
1;
__END__
=head1 NAME
SQL::Translator::Parser::YAML - Parse a YAML representation of a schema
=head1 SYNOPSIS
use SQL::Translator;
my $translator = SQL::Translator->new(parser => "YAML");
=head1 DESCRIPTION
C<SQL::Translator::Parser::YAML> parses a schema serialized with YAML.
=head1 AUTHORS
Darren Chamberlain E<lt>darren@cpan.orgE<gt>,
Ken Y. Clark E<lt>kclark@cpan.orgE<gt>.
|
