Is there a tool to convert DBIx::Class Schema (or just SQL) to XSD

Question

I am using perl DBIx::Class ORM and would like to be able to dynamically generate an XSD either from the DBIX::Class schema or directly from the SQL DDL.

I know it would probably be better that we start with XSD and generate our SQL DDL from the XSD but we are not in a position to do that yet.

thanks, Tom