1 package SQL::Translator::Producer::XML;
3 #-----------------------------------------------------
4 # $Id: XML.pm,v 1.1.1.1.2.1 2002-03-21 15:48:19 dlc Exp $
6 # File : SQL/Translator/Producer/XML.pm
7 # Programmer : Ken Y. Clark, kclark@logsoft.com
10 #-----------------------------------------------------
13 use vars qw( $VERSION );
14 $VERSION = sprintf "%d.%02d", q$Revision: 1.1.1.1.2.1 $ =~ /(\d+)\.(\d+)/;
19 my ( $self, $data ) = @_;
20 my $dumper = XML::Dumper->new;
21 return $dumper->pl2xml( $data );
25 #-----------------------------------------------------
26 # The eyes of fire, the nostrils of air,
27 # The mouth of water, the beard of earth.
29 #-----------------------------------------------------
35 SQL::Translator::Producer::XML - XML output
39 use SQL::Translator::Producer::XML;
47 Ken Y. Clark, kclark@logsoft.com