use strict; BEGIN { $^W = 1 } use Test::More tests => 2; use HTML::StripScripts::Parser; my $filt = HTML::StripScripts::Parser->new({ Context => 'Document' }); $filt->parse(< script test page foo END $filt->eof; is( $filt->filtered_document, < script test page foo END $filt->parse(< script test page foo baz END $filt->eof; is( $filt->filtered_document, < script test page foo baz END