File Coverage

blib/lib/Catalyst/View/XSLT/XML/LibXSLT.pm

Criterion	Covered	Total	%
statement	6	48	12.5
branch	0	16	0.0
condition	0	18	0.0
subroutine	2	4	50.0
pod	2	2	100.0
total	10	88	11.3

package Catalyst::View::XSLT::XML::LibXSLT;

use strict;
use warnings;

our $VERSION = '0.09';

=head1 NAME

Catalyst::View::XSLT::XML::LibXSLT - An implementation for Catalyst::View::XSLT
with XML::LibXSLT

=head1 SYNOPSIS

This module is meant to be used internally by L<Catalyst::View::XSLT>.

=head1 METHODS

=over 4

=item new

Returns a new instance of XML::LibXSLT view implementation

=cut

sub new
{
    my ($proto, $c, $params) = @_;

    eval {

        require XML::LibXML;
        require XML::LibXSLT;

        XML::LibXML->import;
        XML::LibXSLT->import;
    };

    if ($@) {
        $c->error('Could not use XML::LibXSLT: ' . $@);
        return undef;
    }

    if (exists $params->{register_function}
      and ref($params->{register_function}) eq 'ARRAY') {

        my $register_subs = $params->{register_function};

        foreach my $hrefSubConf (@{ $register_subs }) {
            XML::LibXSLT->register_function(
              $hrefSubConf->{uri},
              $hrefSubConf->{name},
              $hrefSubConf->{subref},
            );
         }

    }

    my $class = ref $proto || $proto;

    my $self = {};

    bless($self, $class);

    return $self;

}

=item process

=cut

sub process {
    my ($self, $template, $args, $base) = @_;

    my ($result, $error) = ('', undef);

    eval {
        my $xmlParser = XML::LibXML->new();
        my $xsltProcessor = XML::LibXSLT->new();

        my ($xmlDocument, $xsltStylesheet);

        my $xml = delete $args->{xml};

        if (ref($xml) && $xml->isa('GLOB')) {
            $xmlDocument = $xmlParser->parse_fh($xml);
        } elsif (ref($xml) && $xml->isa('XML::LibXML::Document')) {
            $xmlDocument = $xml;
        } elsif ($xml =~ m/\</) {
            $xmlDocument = $xmlParser->parse_string($xml);
        } else {
            $xmlDocument = $xmlParser->parse_file($xml);
        }

        if ($template =~ m/\</) {
            $xsltStylesheet = $xmlParser->parse_string($template, $base);
        } elsif (ref($template) && $template->isa('GLOB')) {
            $xsltStylesheet = $xmlParser->parse_fh($template, $base);
        } elsif (ref($template) && $template->isa('XML::LibXML::Document')) {
            $xsltStylesheet = $template;
        } else {
            $xsltStylesheet = $xmlParser->parse_file($template);
        }

        my $xsltTransformer = $xsltProcessor->parse_stylesheet($xsltStylesheet);

        my %params = XML::LibXSLT::xpath_to_string( %{$args} );

        my $results = $xsltTransformer->transform($xmlDocument, %params);

        $result = $xsltTransformer->output_string($results);

    };

    $error = $@;

    return ($result, $error);
}

=back

=head1 SEE ALSO

L<Catalyst>, L<Catalyst::Base>, L<XML::LibXSLT>

=head1 AUTHORS

Martin Grigorov, E<lt>mcgregory {at} e-card {dot} bgE<gt>

Simon Bertrang, E<lt>[e-mail]<gt>

=head1 COPYRIGHT

This program is free software, you can redistribute it and/or modify it
under the same terms as Perl itself.

=cut

1;