package IIa66da94aed9b371a0ee16b72f938ea09::tag_textmode; use strict; use base qw/II720d6e18aa34327713eb014408fc9144/; sub start { my ($this, $tag, $attr, $attrseq, $origtext) = @_; $this->harakiri('no mode') unless $attr->{mode}; $this->{Textmode} = $attr->{mode} eq 'nospace' ? 'nospace' : undef; return; } 1; 