File Coverage

blib/lib/String/Query/To/Regexp.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	12	14	85.7
condition	2	2	100.0
subroutine	5	5	100.0
pod	1	1	100.0
total	45	47	95.7

package String::Query::To::Regexp;

use 5.010001;
use strict;
use warnings;

use Exporter 'import';
our @EXPORT_OK = qw(query2re);

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2022-11-01'; # DATE
our $DIST = 'String-Query-To-Regexp'; # DIST
our $VERSION = '0.001'; # VERSION

sub query2re {
    my $opts = ref($_[0]) eq 'HASH' ? shift : {};
    my $bool = $opts->{bool} // 'and';
    my $ci   = $opts->{ci};
    my $word = $opts->{word};

    return qr// unless @_;
    my @re_parts;
    for my $query0 (@_) {
        my ($neg, $query) = $query0 =~ /\A(-?)(.*)/;
        $query = quotemeta $query;
        if ($word) {
            push @re_parts, $neg ? "(?!.*\\b$query\\b)" : "(?=.*\\b$query\\b)";
        } else {
            push @re_parts, $neg ? "(?!.*$query)" : "(?=.*$query)";
        }
    }
    my $re = $bool eq 'or' ? "(?:".join("|", @re_parts).")" : join("", @re_parts);
    return $ci ? qr/\A$re.*\z/is : qr/\A$re.*\z/s;
}

1;
# ABSTRACT: Convert query to regular expression

__END__