1 package SQL::Translator::Parser::YAML;
8 use SQL::Translator::Schema;
9 use SQL::Translator::Utils qw(header_comment);
14 my ($translator, $data) = @_;
16 $data = $data->{'schema'};
18 warn "YAML data:",Dumper( $data ) if $translator->debug;
20 my $schema = $translator->schema;
26 map { $data->{'tables'}{ $_->[1] } }
27 sort { $a->[0] <=> $b->[0] }
28 map { [ $data->{'tables'}{ $_ }{'order'} || 0, $_ ] }
29 keys %{ $data->{'tables'} }
32 for my $tdata ( @tables ) {
34 my $table = $schema->add_table(
36 $tdata->{$_} ? ($_ => $tdata->{$_}) : ()
37 } (qw/name extra options/)
38 ) or die $schema->error;
41 map { $tdata->{'fields'}{ $_->[1] } }
42 sort { $a->[0] <=> $b->[0] }
43 map { [ $tdata->{'fields'}{ $_ }{'order'}, $_ ] }
44 keys %{ $tdata->{'fields'} }
47 for my $fdata ( @fields ) {
48 $table->add_field( %$fdata ) or die $table->error;
49 $table->primary_key( $fdata->{'name'} )
50 if $fdata->{'is_primary_key'};
53 for my $idata ( @{ $tdata->{'indices'} || [] } ) {
54 $table->add_index( %$idata ) or die $table->error;
57 for my $cdata ( @{ $tdata->{'constraints'} || [] } ) {
58 $table->add_constraint( %$cdata ) or die $table->error;
66 map { $data->{'views'}{ $_->[1] } }
67 sort { $a->[0] <=> $b->[0] }
68 map { [ $data->{'views'}{ $_ }{'order'}, $_ ] }
69 keys %{ $data->{'views'} }
72 for my $vdata ( @views ) {
73 $schema->add_view( %$vdata ) or die $schema->error;
80 map { $data->{'triggers'}{ $_->[1] } }
81 sort { $a->[0] <=> $b->[0] }
82 map { [ $data->{'triggers'}{ $_ }{'order'}, $_ ] }
83 keys %{ $data->{'triggers'} }
86 for my $tdata ( @triggers ) {
87 $schema->add_trigger( %$tdata ) or die $schema->error;
94 map { $data->{'procedures'}{ $_->[1] } }
95 sort { $a->[0] <=> $b->[0] }
96 map { [ $data->{'procedures'}{ $_ }{'order'}, $_ ] }
97 keys %{ $data->{'procedures'} }
100 for my $tdata ( @procedures ) {
101 $schema->add_procedure( %$tdata ) or die $schema->error;
104 if ( my $tr_data = $data->{'translator'} ) {
105 $translator->add_drop_table( $tr_data->{'add_drop_table'} );
106 $translator->filename( $tr_data->{'filename'} );
107 $translator->no_comments( $tr_data->{'no_comments'} );
108 $translator->parser_args( $tr_data->{'parser_args'} );
109 $translator->producer_args( $tr_data->{'producer_args'} );
110 $translator->parser_type( $tr_data->{'parser_type'} );
111 $translator->producer_type( $tr_data->{'producer_type'} );
112 $translator->show_warnings( $tr_data->{'show_warnings'} );
113 $translator->trace( $tr_data->{'trace'} );
125 SQL::Translator::Parser::YAML - Parse a YAML representation of a schema
131 my $translator = SQL::Translator->new(parser => "YAML");
135 C<SQL::Translator::Parser::YAML> parses a schema serialized with YAML.
139 Darren Chamberlain E<lt>darren@cpan.orgE<gt>,
140 Ken Y. Clark E<lt>kclark@cpan.orgE<gt>.