From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Sat, 22 Aug 2009 21:41:31 +0000 (-0700)
Subject: convert sub parse to method parse
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=098b1353354cc717e72073c4e9ed2058b23c9140;p=dbsrgits%2FSQL-Translator-2.0-ish.git

convert sub parse to method parse
---

diff --git a/lib/SQL/Translator/Parser/DDL/XML.pm b/lib/SQL/Translator/Parser/DDL/XML.pm
index 6021b03..8938d40 100644
--- a/lib/SQL/Translator/Parser/DDL/XML.pm
+++ b/lib/SQL/Translator/Parser/DDL/XML.pm
@@ -3,8 +3,8 @@ role SQL::Translator::Parser::DDL::XML {
 use XML::LibXML;
 use XML::LibXML::XPathContext;
 
-sub parse {
-    my ( $translator, $data ) = @_;
+method parse {
+    my $translator = $self->translator;
     my $schema                = $translator->schema;
     local $DEBUG              = $translator->debug;
     my $doc                   = XML::LibXML->new->parse_string($data);