Dies ist der Titel

print $INC{'HTML/Restrict.pm'}; print HTML::Restrict->VERSION; ##

##

package Dynamic::Transform::zim_iwe_filtern;

use strict;
use warnings;
use HTML::Restrict;
use Carp;

sub new {
	my ($proto, $config) = @_;
	my $class = ref($proto) || $proto;

	bless {}, $class;
}

sub transform {
	my ($self, $metainfo) = @_;

    ## test value
    my $value = qq|
  
    Dies ist der Titel
  
  
    Hier kommt der Inhalt
  

|;

    my $hr = HTML::Restrict->new() or die "Error at HTML::Restrict->new: $!";
    $value = $hr->process($value) or die "Error at process: $!";
    #$metainfo->setValues($key."_DEBUG", $value);
warn "Have [$value] after HTML::Restrict";
}

1;