File Coverage

lib/App/Sandy/Role/Counter.pm

Criterion	Covered	Total	%
statement	3	14	21.4
branch	0	2	0.0
condition			n/a
subroutine	1	3	33.3
pod	0	1	0.0
total	4	20	20.0

package App::Sandy::Role::Counter;
# ABSTRACT: Bayes counter

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

our $VERSION = '0.24'; # VERSION

sub with_make_counter {
	# ALgorithm based in perlfaq:
	# How do I select a random line from a file?
	# "The Art of Computer Programming"

	my ($self, $num, $picks, $rng) = @_;
	return sub {
		state $count_down = $num;
		state $picks_left = $picks;

		my $rc = 0;
		my $rand = $rng->get_n($count_down);

		if ($rand < $picks_left) {
			$rc = 1;
			$picks_left--;
		}

		$count_down--;
		return $rc;
	};
}

__END__

=pod

=encoding UTF-8

=head1 NAME

App::Sandy::Role::Counter - Bayes counter

=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