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.16';

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 xslt       => (
    is => 'ro',
    lazy => 1,
    coerce => sub {
        Catmandu::XML::Transformer->new( stylesheet => $_[0] ) if defined $_[0]
    },
    builder => sub {
        $_[0]->transform
    }
);
has transform => (
    is => 'ro',
    coerce => sub {
        warn "Catmandu::Importer::XML option 'transform' renamed to 'xslt'\n";
        $_[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->xslt ?
               $self->xslt->transform($item) : $item
    }
}

1;
__END__