File Coverage

blib/lib/Catmandu/Fix/xml_transform.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Catmandu::Fix::xml_transform;

our $VERSION = '0.15';

use Catmandu::Sane;
use Moo;
use XML::LibXML;
use XML::LibXSLT;

use Catmandu::XML::Transformer;

with 'Catmandu::Fix::Base';

has field       => (is => 'ro', required => 1);
has file        => (is => 'ro', required => 1);

has _transformer => (
    is => 'ro',
    lazy => 1,
    default => sub {
        Catmandu::XML::Transformer->new(
            stylesheet => $_[0]->file
        );
    }
);

around BUILDARGS => sub {
    my($orig,$class,$field,%opts) = @_;
    $orig->($class,field => $field, file => $opts{file});
};

sub emit {
    my ($self,$fixer) = @_;

    my $path = $fixer->split_path($self->field());
    my $key = pop @$path;

    my $transformer = $fixer->capture($self->_transformer);

    return $fixer->emit_walk_path($fixer->var,$path,sub{
        my $var = $_[0];
        $fixer->emit_get_key($var,$key,sub{
            my $var = $_[0];
            return "${var} = ${transformer}->transform(${var});";
        });
    });
}

1;
__END__