From: Darren Chamberlain <dlc@sevenroot.org>
Date: Thu, 21 Mar 2002 15:48:19 +0000 (+0000)
Subject: Changed name of translate method to produce, to be consistant with Producer API.... 
X-Git-Tag: v0.01~58^2~9
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4b603a3fbc5686f13f07c1c178d8704c58a22a51;p=dbsrgits%2FSQL-Translator.git

Changed name of translate method to produce, to be consistant with Producer API. Added __END__ token.  Updated $VERSION to be CPAN-compliant.
---

diff --git a/lib/SQL/Translator/Producer/XML.pm b/lib/SQL/Translator/Producer/XML.pm
index 7621a62..0a76d3b 100644
--- a/lib/SQL/Translator/Producer/XML.pm
+++ b/lib/SQL/Translator/Producer/XML.pm
@@ -1,7 +1,7 @@
 package SQL::Translator::Producer::XML;
 
 #-----------------------------------------------------
-# $Id: XML.pm,v 1.1.1.1 2002-03-01 02:26:25 kycl4rk Exp $
+# $Id: XML.pm,v 1.1.1.1.2.1 2002-03-21 15:48:19 dlc Exp $
 #
 # File       : SQL/Translator/Producer/XML.pm
 # Programmer : Ken Y. Clark, kclark@logsoft.com
@@ -10,29 +10,25 @@ package SQL::Translator::Producer::XML;
 #-----------------------------------------------------
 
 use strict;
-use SQL::Translator::Producer;
 use vars qw( $VERSION );
-$VERSION = (qw$Revision: 1.1.1.1 $)[-1];
+$VERSION = sprintf "%d.%02d", q$Revision: 1.1.1.1.2.1 $ =~ /(\d+)\.(\d+)/;
 
 use XML::Dumper;
 
-use base qw[ SQL::Translator::Producer ];
-
-sub to { 'XML' }
-
-sub translate {
+sub produce {
     my ( $self, $data ) = @_;
     my $dumper = XML::Dumper->new;
     return $dumper->pl2xml( $data );
 }
 
 1;
-
 #-----------------------------------------------------
 # The eyes of fire, the nostrils of air,
 # The mouth of water, the beard of earth.
 # William Blake
 #-----------------------------------------------------
+__END__
+
 
 =head1 NAME