Pod::Simple::PullParserTextToken(3pm) Perl Programmers Reference Guide Pod::Simple::PullParserTextToken(3pm)

# [NAME](#NAME)

Pod::Simple::PullParserTextToken -- text-tokens from Pod::Simple::PullParser

# [SYNOPSIS](#SYNOPSIS)

(See Pod::Simple::PullParser)

# [DESCRIPTION](#DESCRIPTION)

When you do $parser-&gt;get\_token on a Pod::Simple::PullParser, you might get an object of this class.

This is a subclass of Pod::Simple::PullParserToken and inherits all its methods, and adds these methods:

$token-&gt;text

This returns the text that this token holds. For example, parsing C&lt;foo&gt; will return a C start-token, a text-token, and a C end-token. And if you want to get the "foo" out of the text-token, call "$token-&gt;text"

$token-&gt;text(*somestring*)

This changes the string that this token holds. You probably won't need to do this.

$token-&gt;**text\_r()**

This returns a scalar reference to the string that this token holds. This can be useful if you don't want to memory-copy the potentially large text value (well, as large as a paragraph or a verbatim block) as calling $token-&gt;text would do.

Or, if you want to alter the value, you can even do things like this:

```
  for ( ${  $token->text_r  } ) {  # Aliases it with $_ !!
    s/ The / the /g; # just for example
    if( 'A' eq chr(65) ) {  # (if in an ASCII world)
      tr/\xA0/ /;
      tr/\xAD//d;
    }
    ...or however you want to alter the value...
    (Note that starting with Perl v5.8, you can use, e.g.,
        my $nbsp = chr utf8::unicode_to_native(0xA0);
        s/$nbsp/ /g;
    to handle the above regardless if it's an ASCII world or not)
  }
    
```

You're unlikely to ever need to construct an object of this class for yourself, but if you want to, call "Pod::Simple::PullParserTextToken-&gt;new( *text* )"

# [SEE ALSO](#SEE_ALSO)

Pod::Simple::PullParserToken, Pod::Simple, Pod::Simple::Subclassing

# [SUPPORT](#SUPPORT)

Questions or discussion about POD and Pod::Simple should be sent to the pod-people@perl.org mail list. Send an empty email to pod-people-subscribe@perl.org to subscribe.

This module is managed in an open GitHub repository, &lt;https://github.com/perl-pod/pod-simple/&gt;. Feel free to fork and contribute, or to clone &lt;https://github.com/perl-pod/pod-simple.git&gt; and send patches!

Patches against Pod::Simple are welcome. Please send bug reports to &lt;bug-pod-simple@rt.cpan.org&gt;.

# [COPYRIGHT AND DISCLAIMERS](#COPYRIGHT_AND_DISCLAIMERS)

Copyright (c) 2002 Sean M. Burke.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose.

# [AUTHOR](#AUTHOR)

Pod::Simple was created by Sean M. Burke &lt;sburke@cpan.org&gt;. But don't bother him, he's retired.

Pod::Simple is maintained by:

- Allison Randal "allison@perl.org"
- Hans Dieter Pearcey "hdp@cpan.org"
- David E. Wheeler "dwheeler@cpan.org"

2026-10-26 perl v5.44.0

---

Document: Pod::Simple::PullParserTextToken(3pm) from perl 5.44.0-r3 (Chainguard OS)
Source: https://github.com/Perl/perl5.git
