- or download this
my %tag_for = map { $_ => 1 } $text->tagNames;
... later ...
if (exists $tag_for{$j}) { ... }
- or download this
if (grep $_ eq $j, $text->tagNames) { ... }
- or download this
first { $_ eq $j } $text->tagNames
- or download this
$text->does_tag_exist($tag_name)