File Coverage

blib/lib/XSLT/Cache.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 XSLT::Cache;

use vars qw($VERSION);
$VERSION = 0.2;

use strict;
use XML::LibXML;
use XML::LibXSLT;
use File::Cache::Persistent;

sub new {
    my ($class, %args) = @_;

    my $cache = new File::Cache::Persistent(
        prefix => $args{prefix} || undef,
        timeout => $args{timeout} || 0,
        reader => \&_read_xsl_file
    );

    my $this = {
        cache => $cache,
    };
    bless $this, $class;

    return $this;
}

sub transform {
    my ($this, $xmldoc, $xsltpath) = @_;

    $xmldoc = $this->_get_xmldocument($xmldoc) unless ref $xmldoc && $xmldoc->isa("XML::LibXML::Document");
    $xsltpath = $this->_get_xsltpath($xmldoc) unless $xsltpath;

    die "No path to XSLT specified\n" unless $xsltpath;

    $xsltpath = $this->{prefix} . '/' . $xsltpath if $this->{prefix};
    my $xsldoc = $this->{cache}->get($xsltpath);

    return $xsldoc->output_string($xsldoc->transform($xmldoc));
}

sub status {
    my $this = shift;

    return $this->{cache}->status();
}

sub _get_xmldocument {
    my ($this, $xmldoc) = @_;

    my $xmlparser = new XML::LibXML();

    die "Empty XML document passed\n" unless $xmldoc;

    if ($xmldoc =~ /^<\?xml/) {
        $xmldoc = $xmlparser->parse_string($xmldoc);
    }
    elsif (-f $xmldoc) {
        $xmldoc = $xmlparser->parse_file($xmldoc);
    }
    else {
        die "Cannot open XML File '$xmldoc'\n";
    }
}

sub _get_xsltpath {
    my ($this, $xmldoc) = @_;

    my @stylesheet = $xmldoc->findnodes("processing-instruction('xml-stylesheet')");
    if (@stylesheet) {
        my $stylesheet = $stylesheet[0]->nodeValue;
        if ($stylesheet =~ m{type\s*=\s*['"]text/xslt?['"]}) {
            my ($href) = $stylesheet =~ m{href\s*=\s*['"](.*?)['"]};
            return $href;
        }
    }

    return undef;
}

sub _read_xsl_file {
    my $path = shift;

    my $xslparser = new XML::LibXSLT();

    return $xslparser->parse_stylesheet_file($path);
}

1;

__END__