No XML error with external XML parser

1 files changed, 10 insertions, 2 deletions

diff --git a/Xerl/XML/Reader.pm b/Xerl/XML/Reader.pm
index e31ef11..c349443 100644
--- a/Xerl/XML/Reader.pm
+++ b/Xerl/XML/Reader.pm
@@ -37,9 +37,11 @@ use XML::LibXML;
 use Xerl::Base;
 use Xerl::XML::Element;
 
-sub newparse($) {
+sub process($) {
   my Xerl::XML::Reader $self = shift;
 
+  my $doc = XML::LibXML->load_xml(location => $self->get_path());
+
   return undef;
 }
 
@@ -58,7 +60,7 @@ sub open($) {
 sub parse($) {
   my Xerl::XML::Reader $self = $_[0];
 
-  $self->newparse( $self->get_path() );
+  my $process = $self->process();
 
   my $rarray = $self->get_array();
   return $self unless ref $rarray eq 'ARRAY';
@@ -92,14 +94,20 @@ sub parse($) {
         my ( $name, $params ) = ( $1, $3 );
         $flag = 1;
 
+        my $DEBUG = $name =~ /^=/ ? 1 : 0;
+        $self->debug($name, $params) if $DEBUG;
+
         # Ignore XML comments
         next if $name =~ /^!--/o;
 
+
         $next = Xerl::XML::Element->new();
         $next->set_name($name);
         $next->set_prev($element);
         $next->set_single($is_single_tag);
 
+        $next->print() if $DEBUG;
+
         # Handle tag parameters
         if ( defined $params ) {
           my %params = $params =~ /