diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/WebCoso/XSLT.pm | 25 |
1 files changed, 11 insertions, 14 deletions
diff --git a/lib/WebCoso/XSLT.pm b/lib/WebCoso/XSLT.pm index ceb7b3a..8daa912 100644 --- a/lib/WebCoso/XSLT.pm +++ b/lib/WebCoso/XSLT.pm @@ -45,7 +45,12 @@ sub new { $self->{fc}->add_writer(qr{\.xml$} => sub { $_[1]->toFile($_[0]) }); - $self->{du2html}=sub { + bless $self,$class; +} + +sub du2html { + my ($self)=@_; + return sub { my ($maker,$target,$deps,$matches)=@_; DEBUG("du2html($maker,$target,(@$deps),(@$matches))"); @@ -73,8 +78,12 @@ sub new { )); $self->{fc}->put($target,$xslt->output_string($out)); }; +} - $self->{fillFeed}=sub { +sub fillFeed { + my ($self)=@_; + + return sub { my ($maker,$target,$deps,$matches)=@_; DEBUG("fillFeed($maker,$target,(@$deps),(@$matches))"); @@ -95,18 +104,6 @@ sub new { )); $self->{fc}->put($target,$out); }; - - bless $self,$class; -} - -sub du2html { - my ($self)=@_; - return $self->{du2html}; -} - -sub fillFeed { - my ($self)=@_; - return $self->{fillFeed}; } sub setXMLTagsSource { |