BEGIN { print "1..2\n"; } END { print "not ok 1\n" unless $loaded; } use XML::Parser; $loaded = 1; print "ok 1\n"; my $count = 0; my $cdata_part = "<<< & > '' << &&&>&&&&;<"; my $doc = "<foo> hello <![CDATA[$cdata_part]]> there</foo>"; my $acc = ''; sub ch { my ( $xp, $data ) = @_; $acc .= $data; } sub stcd { my $xp = shift; $xp->setHandlers( Char => \&ch ); } sub ecd { my $xp = shift; $xp->setHandlers( Char => 0 ); } $parser = new XML::Parser( ErrorContext => 2, Handlers => { CdataStart => \&stcd, CdataEnd => \&ecd } ); $parser->parse($doc); print "not " unless ( $acc eq $cdata_part ); print "ok 2\n";