File Coverage

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

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	19	21	90.4

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

use 5.010001;
use strict;
use warnings;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2022-07-16'; # DATE
our $DIST = 'Data-Sah-Filter-perl-Str-replace_dashes_with_underscores'; # DIST
our $VERSION = '0.002'; # VERSION

sub meta {
    +{
        v => 1,
        summary => 'Replace dashes in string with underscores',
        examples => [
            {value=>'foo'},
            {value=>'foo-bar', filtered_value=>'foo_bar'},
        ],
        description => <<'_',

Can be useful in schemas like Perl module name (or any other identifier kind of
schema which only allowes alphanumeric characters which include underscore but
not dash) where you can type dasah (which does not require pressing the Shiff
key in most keyboards) and later have the dash canonicalized to undersore.

_
    };
}

sub filter {
    my %args = @_;

    my $dt = $args{data_term};

    my $res = {};
    $res->{expr_filter} = join(
        "",
        "do { my \$tmp = $dt; \$tmp =~ s/-/_/g; \$tmp }",
    );

    $res;
}

1;
# ABSTRACT: Replace dashes in string with underscores

__END__