File Coverage

blib/lib/Catmandu/Importer/XML.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Catmandu::Importer::XML;

our $VERSION = '0.15';

use namespace::clean;
use Catmandu::Sane;
use Moo;
use XML::Struct::Reader;
use Catmandu::XML::Transformer;

with 'Catmandu::Importer';

has type        => (is => 'ro', default => sub { 'simple' });
has path        => (is => 'ro');
has root        => (is => 'lazy', default => sub { defined $_[0]->path ? 1 : 0 });
has depth       => (is => 'ro');
has ns          => (is => 'ro', default => sub { '' });
has attributes  => (is => 'ro', default => sub { 1 });
has whitespace  => (is => 'ro', default => sub { 0 });
has transform   => (is => 'ro', coerce => sub {
        Catmandu::XML::Transformer->new( stylesheet => $_[0] ) });

sub generator {
    my ($self) = @_;
    sub {
        state $reader = do {
            my %options = (
                from       => ($self->file || $self->fh),
                whitespace => $self->whitespace,
                attributes => $self->attributes,
                depth      => $self->depth,
                ns         => $self->ns,
            );
            $options{path} = $self->path if defined $self->path;
            if ($self->type eq 'simple') {
                $options{simple} = 1;
                $options{root} = $self->root;
            } elsif ($self->type ne 'ordered') {
                return;
            }
            XML::Struct::Reader->new(%options);
        };

        my $item = $reader->readNext;

        # TODO: transformation should be done earlier for efficiency
        # and because simple format modifies the XML document (bug)
        return $self->transform ?
               $self->transform->transform($item) : $item
    }
}

1;
__END__