File Coverage

blib/lib/Data/Sah/Filter/perl/Str/ensure_trailing_newline.pm

Criterion	Covered	Total	%
statement	8	14	57.1
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	11	21	52.3

package Data::Sah::Filter::perl::Str::ensure_trailing_newline;

use 5.010001;
use strict;
use warnings;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-07-17'; # DATE
our $DIST = 'Data-Sah-Filter'; # DIST
our $VERSION = '0.025'; # VERSION

sub meta {
    +{
        v => 1,
        summary => 'Make sure string (except an empty one) ends with newline, add newline if the string does not',
        examples => [
            {value=>''},
            {value=>' ', filtered_value=>" \n"},
            {value=>'foo', filtered_value=>"foo\n"},
            {value=>'foo ', filtered_value=>"foo \n"},
            {value=>"foo\n"},
            {value=>"foo\n\n"},
            {value=>"foo\n ", filtered_value=>"foo\n \n"},
        ],
    };
}

sub filter {
    my %args = @_;

    my $dt = $args{data_term};

    my $res = {};
    $res->{expr_filter} = join(
        "",
        "do { my \$res = $dt; \$res .= \"\\n\" unless \$res eq '' || \$res =~ /\\R\\z/; \$res }",
    );

    $res;
}

1;
# ABSTRACT: Make sure string (except an empty one) ends with newline, add newline if the string does not

__END__