| Subject: | [PATCH] XML::Filter::XSLT::LibXSLT |
XML::Filter::XSLT::LibXSLT in the XML-Filter-XSLT-0.02 distribution did not feature the set_stylesheet_uri() method advertised in the Synopsis; the attached patch fixes that.
-kip
*** /root/.cpan/build/XML-Filter-XSLT-0.02/lib/XML/Filter/XSLT/LibXSLT.pm Tue Jan 22 14:24:17 2002
--- /usr/lib/perl5/site_perl/5.005/XML/Filter/XSLT/LibXSLT.pm Sun Feb 24 22:27:28 2002
***************
*** 14,19 ****
--- 14,32 ----
my $class = shift;
my %params = @_;
my $self = bless \%params, $class;
+ return $self;
+ }
+
+ sub set_stylesheet_uri {
+ # <ubu> hey look, now it does what the synopsis says it can.. ;->
+ my $self = shift;
+ my $uri = shift;
+ $self->{Source}{SystemId} = $uri;
+ }
+
+ sub start_document {
+ my $self = shift;
+
# copy logic from XML::SAX::Base for getting "something" out of Source key.
# parse stylesheet
# store
***************
*** 38,45 ****
}
$self->{StylesheetDOM} = $styledoc;
- return $self;
}
sub end_document {
--- 51,58 ----
}
$self->{StylesheetDOM} = $styledoc;
+ $self->SUPER::start_document(@_)
}
sub end_document {