lib/SQL/Translator/Producer/XML.pm

   1 package SQL::Translator::Producer::XML;
   2
   3 #-----------------------------------------------------
   4 # $Id: XML.pm,v 1.1.1.1 2002-03-01 02:26:25 kycl4rk 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 SQL::Translator::Producer;
  14 use vars qw( $VERSION );
  15 $VERSION = (qw$Revision: 1.1.1.1 $)[-1];
  16
  17 use XML::Dumper;
  18
  19 use base qw[ SQL::Translator::Producer ];
  20
  21 sub to { 'XML' }
  22
  23 sub translate {
  24     my ( $self, $data ) = @_;
  25     my $dumper = XML::Dumper->new;
  26     return $dumper->pl2xml( $data );
  27 }
  28
  29 1;
  30
  31 #-----------------------------------------------------
  32 # The eyes of fire, the nostrils of air,
  33 # The mouth of water, the beard of earth.
  34 # William Blake
  35 #-----------------------------------------------------
  36
  37 =head1 NAME
  38
  39 SQL::Translator::Producer::XML - XML output
  40
  41 =head1 SYNOPSIS
  42
  43   use SQL::Translator::Producer::XML;
  44
  45 =head1 DESCRIPTION
  46
  47 Blah blah blah.
  48
  49 =head1 AUTHOR
  50
  51 Ken Y. Clark, kclark@logsoft.com
  52
  53 =head1 SEE ALSO
  54
  55 perl(1).
  56
  57 =cut