File Coverage

blib/lib/KSx/Search/WildCardQuery.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	2	4	50.0
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	24	26	92.3

use strict;
use warnings;

package KSx::Search::WildCardQuery;
use base qw( KSx::Search::RegexpTermQuery );

our $VERSION = '0.05';

sub new {
    my($pack, %args) = @_;

    for($args{regexp} = delete $args{term}) {
        $_ = quotemeta; # turn it into a regexp that matches a literal str
        s/\\\*/.*/g;    # convert \*’s into .*’s
        s/(?:\.\*){2,}/.*/g; # eliminate multiple consecutive wild cards
        s/^/^/    unless s/^\.\*//;  # anchor the regexp to
        s/\z/\\z/ unless s/\.\*\z//; # the ends of the term
    }

    $pack->SUPER::new(%args);
}

1;

__END__