File Coverage

blib/lib/Sort/Sub/by_rand.pm
Criterion Covered Total %
statement 11 12 91.6
branch n/a
condition n/a
subroutine 5 6 83.3
pod 0 2 0.0
total 16 20 80.0


line stmt bran cond sub pod time code
1             package Sort::Sub::by_rand;
2              
3             our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
4             our $DATE = '2020-02-28'; # DATE
5             our $DIST = 'Sort-Sub'; # DIST
6             our $VERSION = '0.118'; # VERSION
7              
8 1     1   19 use 5.010;
  1         3  
9 1     1   4 use strict;
  1         2  
  1         21  
10 1     1   5 use warnings;
  1         2  
  1         94  
11              
12             sub meta {
13             return {
14 1     1 0 4 v => 1,
15             summary => "Sort randomly using Perl's rand()",
16             };
17             }
18              
19             sub gen_sorter {
20 1     1 0 3 my ($is_reverse, $is_ci) = @_;
21              
22 1     0   4 sub { int(3*rand())-1 };
  0            
23             }
24              
25             1;
26             # ABSTRACT: Sort randomly using Perl's rand()
27              
28             __END__