File Coverage

blib/lib/HTML/Template/Compiled/Plugin/LineBreak.pm

Criterion	Covered	Total	%
statement	14	15	93.3
branch	6	8	75.0
condition			n/a
subroutine	4	4	100.0
pod	0	2	0.0
total	24	29	82.7

package HTML::Template::Compiled::Plugin::LineBreak;

# $Id: LineBreak.pm 25 2008-03-10 12:00:34Z hagy $

use strict;
use warnings;
our $VERSION = '0.02';

HTML::Template::Compiled->register(__PACKAGE__);

sub register {
    my ($class) = @_;
    my %plugs = (
        escape => {
            LINEBREAK => \&html_line_break,
            BR        => \&html_line_break,
        },
    );
    return \%plugs;
}

sub html_line_break {
    local $_  = shift;

    defined or return;

#   s|(\r?\n)|$1|g;
    s|\x0D\x0A|\r\n|g and return $_;  # for \r\n  CRLF    WIN
    s|\x0D|\r|g       and return $_;  # for \r    CR      MAC
    s|\x0A|\n|g       and return $_;  # for \n    LF      UNIX
    return $_;
}

1;
__END__