Extracts a "pod scope"
use Pod::Index::Extract; my $parser = Pod::Index::Extract->new; # [...] get $fh_in to the desired position $parser->parse_from_filehandle($fh_in, $fh_out);
This module is a subclass of Pod::Parser. It outputs \s-1POD\s0 without any transformation; however, it only outputs the \s-1POD\s0 that is \*(L"in scope\*(R" as defined in Pod::Index.
To use this module, you first need to position a filehandle at the beginning of the desired scope, and then call \*(C`parse_from_filehandle\*(C' with that filehandle for input. It will just print the \s-1POD\s0 until it reaches the end of the scope, after which it will jump to the end of the file.
If the scope starts with an \*(C`=item\*(C', it will wrap it with an \*(C`=over\*(C' and a \*(C`=back\*(C', so it can be used as valid \s-1POD\s0 in isolation.
0.14
Pod::Index, Pod::Index::Entry, Pod::Parser
Ivan Tubert-Brohman <[email protected]>
Copyright (c) 2005 Ivan Tubert-Brohman. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.