File Coverage

blib/lib/WordListRole/BinarySearch.pm

Criterion	Covered	Total	%
statement	27	29	93.1
branch	6	10	60.0
condition	3	8	37.5
subroutine	5	5	100.0
pod	1	1	100.0
total	42	53	79.2

package WordListRole::BinarySearch;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2021-04-25'; # DATE
our $DIST = 'WordListRole-BinarySearch'; # DIST
our $VERSION = '0.006'; # VERSION

use strict 'subs', 'vars';
use warnings;
use Role::Tiny;

sub word_exists {
    no strict 'refs'; # this is required because Role::Tiny forces full stricture

    require File::SortedSeek::PERLANCAR;

    my ($self, $word) = @_;

    my $class = $self->{orig_class} // ref($self);

    my $dyn = ${"$class\::DYNAMIC"};
    die "Can't binary search on a dynamic wordlist" if $dyn;

    my $fh = \*{"$class\::DATA"};
    my $sort = ${"$class\::SORT"} || "";

    my $tell;
    if ($sort && $sort =~ /num/) {
        $tell = File::SortedSeek::PERLANCAR::numeric   ($fh, $word, undef, $self->{fh_orig_pos});
    } elsif (!$sort) {
        $tell = File::SortedSeek::PERLANCAR::alphabetic($fh, $word, undef, $self->{fh_orig_pos});
    } else {
        die "Wordlist is not ascibetically/numerically sort (sort=$sort)";
    }

    return 0 unless File::SortedSeek::PERLANCAR::was_exact();
    return 0 unless defined $tell;
    1;
}

1;
# ABSTRACT: Provide word_exists() that uses binary search

__END__