diff options
Diffstat (limited to 'Xerl')
| -rw-r--r-- | Xerl/XML/Reader.pm | 12 |
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 =~ / |