File Coverage

blib/lib/Template/Plugin/PwithBR.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition	1	3	33.3
subroutine	6	6	100.0
pod	1	2	50.0
total	30	33	90.9

package Template::Plugin::PwithBR;

use strict;
use warnings;

use base qw( Template::Plugin );
use Template::Plugin;

our $FILTER_NAME = 'p_with_br';

our $VERSION = '0.04';

sub new {
    my($class, $context, @args) = @_;
    my $name = $args[0] || $FILTER_NAME;
    $context->define_filter($name, \&p_with_br, 0);
    return $class;
}

sub p_with_br {
    my $text = shift;
    $text =~ s/\x0D\x0A/\n/g;
    $text =~ tr/\x0D\x0A/\n\n/;

    $text =~ s{(?\n}g;
    $text = "\n"
        . join("\n\n\n\n", split(/(?:\r?\n){2,}/, $text))
        . "\n";
    $text;
}

1;
__END__