use strict; use warnings; use utf8; use Lingua::JA::NormalizeText qw/strip_html/; use Test::More; binmode Test::More->builder->$_ => ':utf8' for qw/output failure_output todo_output/; my $normalizer = Lingua::JA::NormalizeText->new(qw/strip_html/); my $html = do { local $/; }; like(strip_html($html), qr/ナビゲーション/); like($normalizer->normalize($html), qr/ナビゲーション/); unlike(strip_html($html), qr/script/); unlike($normalizer->normalize($html), qr/script/); done_testing; __DATA__ タイトル

見出し