lib/SQL/Translator/Producer/XML.pm

   1 package SQL::Translator::Producer::XML;
   2
   3 #-----------------------------------------------------
   4 # $Id: XML.pm,v 1.2 2002-03-21 18:50:53 dlc Exp $
   5 #
   6 # File       : SQL/Translator/Producer/XML.pm
   7 # Programmer : Ken Y. Clark, kclark@logsoft.com
   8 # Created    : 2002/02/27
   9 # Purpose    : XML output
  10 #-----------------------------------------------------
  11
  12 use strict;
  13 use vars qw( $VERSION );
  14 $VERSION = sprintf "%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/;
  15
  16 use XML::Dumper;
  17
  18 sub produce {
  19     my ( $self, $data ) = @_;
  20     my $dumper = XML::Dumper->new;
  21     return $dumper->pl2xml( $data );
  22 }
  23
  24 1;
  25 #-----------------------------------------------------
  26 # The eyes of fire, the nostrils of air,
  27 # The mouth of water, the beard of earth.
  28 # William Blake
  29 #-----------------------------------------------------
  30 __END__
  31
  32
  33 =head1 NAME
  34
  35 SQL::Translator::Producer::XML - XML output
  36
  37 =head1 SYNOPSIS
  38
  39   use SQL::Translator::Producer::XML;
  40
  41 =head1 DESCRIPTION
  42
  43 Blah blah blah.
  44
  45 =head1 AUTHOR
  46
  47 Ken Y. Clark, kclark@logsoft.com
  48
  49 =head1 SEE ALSO
  50
  51 perl(1).
  52
  53 =cut