File Coverage

lib/App/Sandy/Role/BSearch.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	6	6	100.0
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	24	25	96.0

package App::Sandy::Role::BSearch;
# ABSTRACT: Binary search role

use App::Sandy::Base 'role';

our $VERSION = '0.24'; # VERSION

sub with_bsearch {
	my ($self, $key, $base, $nmemb, $func) = @_;
	return $self->_bsearch($key, $base, 0, $nmemb - 1, $func);
}

sub _bsearch {
	my ($self, $key1, $base, $start, $end, $func) = @_;

	if ($start > $end) {
		# Not found!
		return;
	}

	my $index = int(($start + $end) / 2);
	my $key2 = $base->[$index];

	# $key1 <=> $key2
	my $rc = $func->($key1, $key2);

	if ($rc > 0) {
		return $self->_bsearch($key1, $base, $index + 1, $end, $func);
	} elsif ($rc < 0) {
		return $self->_bsearch($key1, $base, $start, $index - 1, $func);
	} else {
		return $index;
	}
}

__END__

=pod

=encoding UTF-8

=head1 NAME

App::Sandy::Role::BSearch - Binary search role

=head1 VERSION

version 0.24

=head1 AUTHORS

=over 4

=item *

Thiago L. A. Miller <[e-mail]>

=item *

J. Leonel Buzzo <[e-mail]>

=item *

Felipe R. C. dos Santos <[e-mail]>

=item *

Helena B. Conceição <[e-mail]>

=item *

Rodrigo Barreiro <[e-mail]>

=item *

Gabriela Guardia <[e-mail]>

=item *

Fernanda Orpinelli <[e-mail]>

=item *

Rafael Mercuri <[e-mail]>

=item *

Rodrigo Barreiro <[e-mail]>

=item *

Pedro A. F. Galante <[e-mail]>

=back

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2023 by Teaching and Research Institute from Sírio-Libanês Hospital.

This is free software, licensed under:

  The GNU General Public License, Version 3, June 2007

=cut