The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

MARTING / Catalyst-View-XSLT-0.02 / lib / Catalyst / View / XSLT / XML / LibXSLT.pm 

            

              
1
2
3
4
—
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
—
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
—
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135

              
package Catalyst::View::XSLT::XML::LibXSLT;
use strict;
use warnings;
=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 internaly by Catalyst::View::XSLT module.
=cut
=over 4
=item new
Returns a new instance of XML::LibXSLT view implementation
=cut
# {{{ sub new(mixed $proto, oref $c, href $params)
sub new
{
        my ($proto, $c, $params) = @_;
        eval {
                XML::LibXML->require; 
                XML::LibXSLT->require;
         
                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, $c, $template) = @_;
        my ($result, $error) = ('', undef);
        eval {  
                my $xmlParser = XML::LibXML->new();
                my $xsltProcessor = XML::LibXSLT->new();
                my      ($xmlDocument, $xsltStylesheet);
             
            my $xml = $c->stash->{xml};
            delete $c->stash->{xml};
            if ($xml =~ /\</) {
                        $xmlDocument = $xmlParser->parse_string($xml);
            } else {
                        $xmlDocument = $xmlParser->parse_file($xml);
            }
         
                if ($template =~ m/\</) {
                        $xsltStylesheet = $xmlParser->parse_string($template);
                } else {
                        $xsltStylesheet = $xmlParser->parse_file($template);
                }
                my $xsltTransformer = $xsltProcessor->parse_stylesheet($xsltStylesheet);
                my %params = XML::LibXSLT::xpath_to_string( %{$c->stash} );
                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 AUTHOR
Martin Grigorov, C<mcgregory {at} e-card {dot} bg>
=head1 COPYRIGHT
This program is free software, you can redistribute it and/or modify it
under the same terms as Perl itself.
=cut
1;
__END__