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