1 sub as_is { 2 my ( $self, $method ) = _synch_arrays( shift ); 3 my $type = $self->[0]; 4 my $text = $self->[ $token{ $type }{ text } ]; 5 shift @$self if $method == GET_TAG; 6 return $text; 7 }