File Coverage

blib/lib/Data/Sah/Filter/perl/Re/re_from_str.pm

Criterion	Covered	Total	%
statement	8	16	50.0
branch	0	6	0.0
condition	0	2	0.0
subroutine	3	5	60.0
pod	0	2	0.0
total	11	31	35.4

package Data::Sah::Filter::perl::Re::re_from_str;

use 5.010001;
use strict;
use warnings;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-05-30'; # DATE
our $DIST = 'Sah-PSchemaBundle-Re'; # DIST
our $VERSION = '0.003'; # VERSION

sub meta {
    +{
        v => 1,
        summary => 'Convert string to regex using Regexp::From::String\'s str_to_re()',
        args => {
            always_quote => {
                summary => 'Passed to Regexp::From::String\'s str_to_re()',
                schema => 'bool*',
            },
            case_insensitive => {
                summary => 'Passed to Regexp::From::String\'s str_to_re()',
                schema => 'bool*',
            },
            anchored => {
                summary => 'Passed to Regexp::From::String\'s str_to_re()',
                schema => 'bool*',
            },
        },
    };
}

sub filter {
    my %fargs = @_;

    my $dt = $fargs{data_term};
    my $gen_args = $fargs{args} // {};

    my $res = {};
    $res->{modules}{'Regexp::From::String'} = 0.003;
    $res->{expr_filter} = join(
        "",
        "Regexp::From::String::str_to_re({", (
            "always_quote=>",($gen_args->{always_quote} ? 1:0),
            ", case_insensitive=>",($gen_args->{case_insensitive} ? 1:0),
            ", anchored=>",($gen_args->{anchored} ? 1:0),
        ), "}, $dt)",
    );

    $res;
}

1;
# ABSTRACT: Convert string to regex using Regexp::From::String's str_to_re()

__END__