Commit | Line | Data |
16dc9970 |
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 |