Commit | Line | Data |
16dc9970 |
1 | package SQL::Translator::Producer::XML; |
2 | |
3 | #----------------------------------------------------- |
9a7841dd |
4 | # $Id: XML.pm,v 1.2 2002-03-21 18:50:53 dlc Exp $ |
16dc9970 |
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; |
16dc9970 |
13 | use vars qw( $VERSION ); |
9a7841dd |
14 | $VERSION = sprintf "%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/; |
16dc9970 |
15 | |
16 | use XML::Dumper; |
17 | |
4b603a3f |
18 | sub produce { |
16dc9970 |
19 | my ( $self, $data ) = @_; |
20 | my $dumper = XML::Dumper->new; |
21 | return $dumper->pl2xml( $data ); |
22 | } |
23 | |
24 | 1; |
16dc9970 |
25 | #----------------------------------------------------- |
26 | # The eyes of fire, the nostrils of air, |
27 | # The mouth of water, the beard of earth. |
28 | # William Blake |
29 | #----------------------------------------------------- |
4b603a3f |
30 | __END__ |
31 | |
16dc9970 |
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 |