Commit | Line | Data |
d3fad399 |
1 | package SQL::Translator::Producer::YAML; |
2 | |
3 | # ------------------------------------------------------------------- |
6785b14e |
4 | # $Id: YAML.pm,v 1.3 2003-10-08 22:46:17 kycl4rk Exp $ |
d3fad399 |
5 | # ------------------------------------------------------------------- |
6 | # Copyright (C) 2003 darren chamberlain <darren@cpan.org>, |
6785b14e |
7 | # Ken Y. Clark <kclark@cpan.org>. |
d3fad399 |
8 | # |
9 | # This program is free software; you can redistribute it and/or |
10 | # modify it under the terms of the GNU General Public License as |
11 | # published by the Free Software Foundation; version 2. |
12 | # |
13 | # This program is distributed in the hope that it will be useful, but |
14 | # WITHOUT ANY WARRANTY; without even the implied warranty of |
15 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
16 | # General Public License for more details. |
17 | # |
18 | # You should have received a copy of the GNU General Public License |
19 | # along with this program; if not, write to the Free Software |
20 | # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA |
21 | # 02111-1307 USA |
22 | # ------------------------------------------------------------------- |
23 | |
24 | use strict; |
25 | use vars qw($VERSION); |
6785b14e |
26 | $VERSION = sprintf "%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/; |
d3fad399 |
27 | |
af53e4ec |
28 | use YAML qw(Dump); |
d3fad399 |
29 | |
6785b14e |
30 | # ------------------------------------------------------------------- |
d3fad399 |
31 | sub produce { |
32 | my $translator = shift; |
33 | my $schema = $translator->schema; |
34 | |
af53e4ec |
35 | return Dump({ |
36 | schema => { |
6785b14e |
37 | tables => { |
38 | map { ($_->name => view_table($_)) } $schema->get_tables, |
39 | }, |
40 | views => { |
41 | map { ($_->name => view_view($_)) } $schema->get_views, |
42 | }, |
43 | triggers => { |
44 | map { ($_->name => view_trigger($_)) } $schema->get_triggers, |
45 | }, |
46 | procedures => { |
47 | map { ($_->name => view_procedure($_)) } |
48 | $schema->get_procedures, |
49 | }, |
af53e4ec |
50 | } |
51 | }); |
d3fad399 |
52 | } |
53 | |
6785b14e |
54 | # ------------------------------------------------------------------- |
d3fad399 |
55 | sub view_table { |
56 | my $table = shift; |
af53e4ec |
57 | my $name = $table->name; |
d3fad399 |
58 | |
af53e4ec |
59 | return { |
6785b14e |
60 | 'name' => $table->name, |
61 | 'order' => $table->order, |
62 | 'options' => $table->options || [], |
63 | 'comments' => $table->comments || '', |
64 | 'fields' => { |
65 | map { ($_->name => view_field($_)) } $table->get_fields |
66 | }, |
af53e4ec |
67 | }; |
d3fad399 |
68 | } |
69 | |
6785b14e |
70 | # ------------------------------------------------------------------- |
d3fad399 |
71 | sub view_field { |
72 | my $field = shift; |
73 | |
af53e4ec |
74 | return { |
75 | 'order' => scalar $field->order, |
76 | 'name' => scalar $field->name, |
77 | 'type' => scalar $field->data_type, |
78 | 'size' => [ $field->size ], |
79 | 'extra' => { $field->extra }, |
80 | }; |
d3fad399 |
81 | } |
82 | |
6785b14e |
83 | # ------------------------------------------------------------------- |
84 | sub view_procedure { |
85 | my $procedure = shift; |
86 | |
87 | return { |
88 | 'order' => scalar $procedure->order, |
89 | 'name' => scalar $procedure->name, |
90 | 'sql' => scalar $procedure->sql, |
91 | 'parameters' => scalar $procedure->parameters, |
92 | 'owner' => scalar $procedure->owner, |
93 | 'comments' => scalar $procedure->comments, |
94 | }; |
95 | } |
96 | |
97 | # ------------------------------------------------------------------- |
98 | sub view_trigger { |
99 | my $trigger = shift; |
100 | |
101 | return { |
102 | 'order' => scalar $trigger->order, |
103 | 'name' => scalar $trigger->name, |
104 | 'perform_action_when' => scalar $trigger->perform_action_when, |
105 | 'database_event' => scalar $trigger->database_event, |
106 | 'fields' => scalar $trigger->fields, |
107 | 'on_table' => scalar $trigger->on_table, |
108 | 'action' => scalar $trigger->action, |
109 | }; |
110 | } |
111 | |
112 | # ------------------------------------------------------------------- |
113 | sub view_view { |
114 | my $view = shift; |
115 | |
116 | return { |
117 | 'order' => scalar $view->order, |
118 | 'name' => scalar $view->name, |
119 | 'sql' => scalar $view->sql, |
120 | 'fields' => scalar $view->fields, |
121 | }; |
122 | } |
123 | |
af53e4ec |
124 | 1; |
d3fad399 |
125 | |
af53e4ec |
126 | =head1 NAME |
d3fad399 |
127 | |
af53e4ec |
128 | SQL::Translator::Producer::YAML - A YAML producer for SQL::Translator |
6785b14e |
129 | |
130 | =head1 AUTHORS |
131 | |
132 | darren chamberlain E<lt>darren@cpan.orgE<gt>, |
133 | Ken Y. Clark E<lt>kclark@cpan.orgE<gt>. |
134 | |
135 | =cut |