Mini Shell

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";