File Coverage

blib/lib/Array/Sample/SimpleRandom/Scan.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	20	20	100.0

package Array::Sample::SimpleRandom::Scan;

use 5.010001;
use strict;
use warnings;

use Exporter qw(import);

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2022-05-20'; # DATE
our $DIST = 'Array-Sample-SimpleRandom'; # DIST
our $VERSION = '0.002'; # VERSION

our @EXPORT_OK = qw(sample_simple_random_no_replacement);

sub sample_simple_random_no_replacement {
    require Array::Pick::Scan;

    my ($ary, $n) = @_;
    Array::Pick::Scan::random_item($ary, $n);
}

1;
# ABSTRACT: Simple random sampling from an array (scan algorithm)

__END__