view release on metacpan or  search on metacpan

lib/Catmandu/XML/Transformer.pm  view on Meta::CPAN

    is     => 'ro', 
    coerce => sub { defined $_[0] ? lc $_[0] : undef }
);

has process => (
    is      => 'lazy',
    builder => sub {
        [
            map {
                XML::LibXSLT->new()->parse_stylesheet(
                    XML::LibXML->load_xml(location => $_, no_cdata=>1)
                )
            } @{$_[0]->stylesheet} 
        ]
    }
);

sub BUILD {
    if (@{$_[0]->process} and $_[0]->process->[-1]->output_method eq 'text') {
        $_[0]->{output_format} = 'string'; 
    }