|
Lines 128-134
__PACKAGE__->mk_accessors(qw( do_not_return_source print_warns ));
Link Here
|
| 128 |
|
128 |
|
| 129 |
=head2 transform |
129 |
=head2 transform |
| 130 |
|
130 |
|
| 131 |
my $output= $xslt_engine->transform( $xml, $xsltfilename ); |
131 |
my $output= $xslt_engine->transform( $xml, $xsltfilename, [$parameters] ); |
| 132 |
if( $xslt_engine->err ) { |
132 |
if( $xslt_engine->err ) { |
| 133 |
#decide what to do on failure.. |
133 |
#decide what to do on failure.. |
| 134 |
} |
134 |
} |
|
Lines 144-150
__PACKAGE__->mk_accessors(qw( do_not_return_source print_warns ));
Link Here
|
| 144 |
=cut |
144 |
=cut |
| 145 |
|
145 |
|
| 146 |
sub transform { |
146 |
sub transform { |
| 147 |
my ( $self, $orgxml, $file ) = @_; |
147 |
my ( $self, $orgxml, $file, $parameters ) = @_; |
| 148 |
|
148 |
|
| 149 |
#Initialized yet? |
149 |
#Initialized yet? |
| 150 |
if ( !$self->{xslt_hash} ) { |
150 |
if ( !$self->{xslt_hash} ) { |
|
Lines 182-188
sub transform {
Link Here
|
| 182 |
return $retval; |
182 |
return $retval; |
| 183 |
} |
183 |
} |
| 184 |
my $str = eval { |
184 |
my $str = eval { |
| 185 |
my $result = $stsh->transform($source); |
185 |
#$parameters is an optional hashref that contains |
|
|
186 |
#key-value pairs to be sent to the XSLT. |
| 187 |
#Numbers may be bare but strings must be double quoted |
| 188 |
#(e.g. "'string'" or '"string"'). See XML::LibXSLT for |
| 189 |
#more details. |
| 190 |
|
| 191 |
#NOTE: Parameters are not cached. They are provided for |
| 192 |
#each different transform. |
| 193 |
my $result = $stsh->transform($source, %$parameters); |
| 186 |
$stsh->output_as_chars($result); |
194 |
$stsh->output_as_chars($result); |
| 187 |
}; |
195 |
}; |
| 188 |
if ($@) { |
196 |
if ($@) { |