SQL::Translator 学习

 SQL::Translator 一个以SQL为中心的转换工具，可以实现SQL<->Schema, SQL<->Database, SQL<->ER等各种转换。
CPAN文档：http://search.cpan.org/~kclark/SQL-Translator-0.07/lib/SQL/Translator.pm

 SQL :: Translator包的方法列表：
     *   add_drop_table
     *  no_comments
     *  producer
     *  parser
     *  filters
     *  show_warnings
     *  translate
     *  filename ,  data
     *  schema
     *  trace
     *  validate
     *  version 

producer 将SQL::Translator的中间对象(schema)输出为各种不同的目的对象。
传入一个参数。$tr 为SQL::Translator对象。

sub  produce {
my   $tr       =   shift ;
my   $schema   =   $tr -> schema;  # 取得schema对象。然后解析输出。schema的数据由parser构建.
my   $output   =   '' ;
for   my   $t  (  $schema -> get_tables ) {
   $output   .=   join ( '' ,   " Table =  " ,   $t -> name ,   " " );
}
return   $output ;
}

parser 将输入数据，转换为SQL::Translator. 在parser调用时传入两个参数。
$tr 一个SQL::Translator 实例.
$data 要解析的数据，传入方式为： $t->translate( $input ) 注，$t为SQL::Translator对象。

sub  parser {
my  (  $tr ,   $data  )  =   @_ ;
my   $schema   =   $tr -> schema;     # 从$tr取得schema对象，让后把解析后的数据，填入schema对象等待producer转换。

for   my   $line  (  split (  / n /,   $data  ) ) {
   my  (  $table_name ,   @fields  )  =   split (  /:/,   $line  );
   my   $table   =   $schema -> add_table( name  =>   $table_name  )
      or  die   $schema -> error;
   for  (  @fields  ) {
       my  (  $f_name ,   $type ,   $size  )  =   split ;
       $table -> add_field(
      name       =>   $f_name ,
      data_type  =>   $type ,
      size       =>   $size ,
      ) or  die   $table -> error;
  }
}

return   1 ;
}

SQL::Translator::Schema 中间对象类。
http://search.cpan.org/~kclark/SQL-Translator-0.07/lib/SQL/Translator/Schema.pm

使用SQL::Translator实现xml配置文件到数据模型的转换。
1.可以根据业务进行建模分析数据模型以xml方式保存，
2.将xml文件转换为DBIx::Class的schema文件。*
3.将xml文件转换为sql script。
xml如下：

profile.xml
< node  table ="profile" >
     < string  name ="name"   />
     < string  name ="password"   />
</ node >

password.xml
< node  table ="profile" >
     < string  name ="password"   />
</ node >

问题：怎么实现xml->到schema的转换。因为输入后的xml将转换为中间对象(schema)。在输入的时候只能以中间对象（schema)为基础，不能记录之前的xml文件名。这样将不能实现同一个表在多个xml配置使用的情况。

关于SQL::Translator的设计。
1. 可以用于一些数据转换程序的设计。设计核心是定义一个完善的中间对象。中间对象的设计的好坏，直接影响到程序的扩展性。一方提供一个将源数据转换到中间对象，另一方提供一个接口将数中间对象转化为目的数据。
2.由于引入了中间对象，以结构体组织数据，比直接转换更简单。