package Razor2::Preproc::deHTML_comment; sub new { my $class = shift; return bless {}, $class; } sub isit { my ( $self, $text ) = @_; my $isit = 0; my ( $hdr, $body ) = split /\n\r*\n/, $$text, 2; return 0 unless $body; $isit = $body =~ /(?:|
//gs; $$text = "$hdr\n\n$body"; } 1;