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

見出し