File Coverage

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

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition	1	2	50.0
subroutine	6	6	100.0
pod	0	2	0.0
total	26	29	89.6

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

use 5.010001;
use strict;
use warnings;

use Data::Dmp;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-06-21'; # DATE
our $DIST = 'Data-Sah-Filter'; # DIST
our $VERSION = '0.021'; # VERSION

sub meta {
    +{
        v => 1,
        summary => 'Try to center string in a width, fail if string is too long',
        might_fail => 1,
        args => {
            width => {
                schema => 'uint*',
                req => 1,
            },
        },
        examples => [
            {value=>"12", filter_args=>{width=>4}, filtered_value=>" 12 "},
            {value=>"12", filter_args=>{width=>3}, filtered_value=>"12 "},
            {value=>"12", filter_args=>{width=>2}, filtered_value=>"12"},
            {value=>"12", filter_args=>{width=>1}, valid=>0},
        ],
        description => <<'_',

This filter is mainly for testing.

_
    };
}

sub filter {
    my %fargs = @_;

    my $dt = $fargs{data_term};
    my $gen_args = $fargs{args} // {};
    my $width = int($gen_args->{width});

    my $res = {};
    $res->{expr_filter} = join(
        "",
        "do {\n",
        "  my \$tmp = $dt;\n",
        "  my \$l = $width - length(\$tmp);\n",
        "  if (\$l < 0) { ['String is too wide for width', \$tmp] }\n",
        "  else { my \$l1 = int(\$l/2); my \$l2 = \$l - \$l1; [undef, (' ' x \$l1) . \$tmp . (' ' x \$l2)] }\n",
        "}",
    );

    $res;
}

1;
# ABSTRACT: Try to center string in a width, fail if string is too long

__END__