Text::Parser::Multiline - To be used to add custom line-unwrapping routines to the Text::Parser object.
version 1.000
Input text file:
This is a line that is wrapped with a trailing percent sign % like the last one. This may seem unusual, but hey, it's an % example.
The code required to unwrap this:
use Text::Parser; my $parser = Text::Parser->new(multiline_type => 'join_next'); $parser->custom_line_unwrap_routines( is_wrapped => sub { # A method to detect if this line is wrapped my ($self, $this_line) = @_; $this_line =~ /\%\s*$/; }, unwrap_routine => sub { # Method to unwrap line, gets called only on line after % sign my ($self, $last_line, $this_line) = @_; chomp $last_line; $last_line =~ s/\%\s*$//g; "$last_line $this_line"; }, );
When $parser gets to read the input text, those three lines get unwrapped and processed by the rules as if it were a single line.
$parser
read
You should not use this module directly in your code. The functionality of this role is accessed through Text::Parser. The purpose of this role is to write custom routines to unwrap line-wrapped text input, using an object of Text::Parser.
use
Text::Parser
Please report any bugs or feature requests on the bugtracker website http://github.com/balajirama/Text-Parser/issues
When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature.
Balaji Ramasubramanian <balajiram@cpan.org>
This software is copyright (c) 2018-2019 by Balaji Ramasubramanian.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
To install Text::Parser, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Text::Parser
CPAN shell
perl -MCPAN -e shell install Text::Parser
For more information on module installation, please visit the detailed CPAN module installation guide.