File Coverage

blib/lib/EBook/Ishmael/TextToHtml.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	26	26	100.0

package EBook::Ishmael::TextToHtml;
use 5.016;
our $VERSION = '2.03';
use strict;
use warnings;

use Exporter 'import';
our @EXPORT = qw(text2html);

sub text2html {

    my $text = shift;

    $text =~ s/&/&/g;
    $text =~ s/
    $text =~ s/>/>/g;

    my @paras = split /(\s*\n){2,}/, $text;

    my $html = join '',
        map { "\n" . $_ . "\n" }
        grep { /\S/ }
        @paras;

    return $html;

}

1;

=head1 NAME

EBook::Ishmael::TextToHtml - Convert plain text to HTML

=head1 SYNOPSIS

  use EBook::Ishmael::TextToHtml;

  my $html = text2html($text);

=head1 DESCRIPTION

B is a module that provides the subroutine
C to perform basic text-to-HTML conversion. If you are looking for
L user documentation, you should consult its manual (this is developer
documentation).

=head1 SUBROUTINES

=head2 $html = text2html($text)

Converts the given string C<$text> to HTML, returning the HTML string.

=head1 AUTHOR

Written by Samuel Young, [e-mail].

This project's source can be found on its
L. Comments and pull
requests are welcome!

=head1 COPYRIGHT

Copyright (C) 2025-2026 Samuel Young

This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

=cut