File Coverage

blib/lib/SortKey/Num/pattern_count.pm

Criterion	Covered	Total	%
statement	8	16	50.0
branch	0	4	0.0
condition			n/a
subroutine	3	6	50.0
pod	0	2	0.0
total	11	28	39.2

package SortKey::Num::pattern_count;

use 5.010001;
use strict;
use warnings;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-05-15'; # DATE
our $DIST = 'SortKey-Num-pattern_count'; # DIST
our $VERSION = '0.002'; # VERSION

sub meta {
    return +{
        v => 1,
        args => {
            pattern => {
                schema => 're_from_str*',
                req => 1,
            },
            string => {
                schema => ['str*', min_len=>1],
                req => 1,
            },
        },
        args_rels => {
            'req_one' => [qw/regexp/],
        },
    };
}

sub gen_keygen {
    my %args = @_;

    my $re = $args{pattern} ? $args{pattern} : qr/\Q$args{string}\E/;

    sub {
        my $str = @_ ? shift : $_;
        my $count = 0;
        $count++ while $str =~ /$re/g;
        $count;
    };
}

1;
# ABSTRACT: Number of occurrences of string/regexp pattern as sort key

__END__