File Coverage

blib/lib/ODO/Parser/XML.pm

Criterion	Covered	Total	%
statement	45	52	86.5
branch	6	14	42.8
condition	2	6	33.3
subroutine	12	13	92.3
pod	4	4	100.0
total	69	89	77.5

#
# Copyright (c) 2006 IBM Corporation.
#
# All rights reserved. This program and the accompanying materials
# are made available under the terms of the Eclipse Public License v1.0
# which accompanies this distribution, and is available at
# http://www.eclipse.org/legal/epl-v10.html
#
# File:        $Source: /var/lib/cvs/ODO/lib/ODO/Parser/XML.pm,v $
# Created by:  Stephen Evanchik( [e-mail] )
# Created on:  10/01/2006
# Revision:	$Id: XML.pm,v 1.6 2010-02-11 18:27:59 ubuntu Exp $
#
# Contributors:
#     IBM Corporation - initial API and implementation
#
package ODO::Parser::XML;

use strict;
use warnings;

use ODO::Exception;

use XML::SAX::ParserFactory;

use Module::Load::Conditional qw/can_load/;
use vars qw /$VERSION/;
$VERSION = sprintf "%d.%02d", q$Revision: 1.6 $ =~ /: (\d+)\.(\d+)/;
use base qw/ODO::Parser/;

our $_BACKEND = 'ODO::Parser::XML::Slow';


use Class::Interfaces('ODO::Parser::XML'=>
	{
		'isa'=> 'ODO::Parser',
		'methods'=> [ 'parse_rdf' ],
	}
  );

=head1 NAME

ODO::Parser::XML - Parser for statements serialized to RDF/XML

=head1 SYNOPSIS

 use ODO::Parser::XML;

 my $statements = ODO::Parser::XML->parse_file('some/path/to/data.rdfxml');

 my $rdf = ' ... rdf xml here ... ';
 my $other_statements = ODO::Parser::XML->parse(\$rdf);

=head1 DESCRIPTION

RDF/XML parser that implements the L interface.

=head1 METHODS

=over

=item parse( )

=item select_parser( )

This subroutine allows you to select the SAX implementation that is used by this SAX parser. Argument is a scalar string.

The following options are available, but are not limited to:

=over

=item XML::LibXML - not actually a SAX engine, but emits SAX events

=item XML::LibXML::SAX - a SAX parser provided by XML::LibXML

=item XML::LibXML::SAX::Parser - another SAX parser provided by XML::LibXML; the one used by default. Not sure how different it is from XML::LibXML::SAX

=item XML::SAX::PurePerl - pure perl implementation; not very efficient.

=back

=back

=cut


sub parse {
	my ($self, $rdf, %parameters) = @_;

	$self = $self->SUPER::new(%parameters)
		unless(ref $self);
	my ($statements, $imports) = $self->parse_rdf($rdf);
	return ($statements, $imports);
}


=item parse_file( )

=cut

sub parse_file {
	my ($self, $filename, %parameters) = @_;

	throw ODO::Exception::File::Missing(error=> "Could not locate file: $filename")
		unless(-e $filename);

	$self = $self->SUPER::new(%parameters)
		unless(ref $self);

	open(RDF_FILE, $filename);
	my ($statements, $imports) = $self->parse_rdf(\*RDF_FILE);
	close(RDF_FILE);

	return ($statements, $imports);
}


sub init {
	my ($self, $config) = @_;
	my $parser_backend = $config->{'backend'} || $_BACKEND;
	my $sax_parser = $config->{'sax_parser'};
	delete $config->{'backend'};
	delete $config->{'sax_parser'};

	# set the sax parser
	$self->select_parser($sax_parser) if defined $sax_parser;

	my $backend_loaded = can_load( modules => {$parser_backend=> undef } );

	throw ODO::Exception::Module(error=> "Could not load RDF/XML parser: '$parser_backend'\n==> $@")
		if(!defined($backend_loaded) && UNIVERSAL::can($parser_backend, 'new'));

	my $rdf_xml_parser = $parser_backend->new(%{ $config });

	return $rdf_xml_parser;
}

sub select_parser {
    my $self   = shift;
    my $parser = shift;
    $parser = 'XML::LibXML::SAX::Parser' unless defined $parser;
   # warn("parser chosen: $parser");
    $XML::SAX::ParserPackage = $parser;
}





sub import {
	my ($package, %options) = @_;
	$_BACKEND = $options{'backend'}
		if(exists($options{'backend'}));
}


=back

=head1 COPYRIGHT

Copyright (c) 2006 IBM Corporation.

All rights reserved. This program and the accompanying materials
are made available under the terms of the Eclipse Public License v1.0
which accompanies this distribution, and is available at
http://www.eclipse.org/legal/epl-v10.html

=cut

1;

__END__