File Coverage

blib/lib/Symbol/Approx/Sub/Random.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 15 15 100.0


line stmt bran cond sub pod time code
1             #
2             # Symbol::Approx::Sub::String::Equal
3             #
4             # Chooser plugin for Symbol::Approx::Sub;
5             #
6             # Copyright (c) 2000, Magnum Solutions Ltd. All rights reserved.
7             #
8             # This module is free software; you can redistribute it and/or
9             # modify it under the same terms as Perl itself.
10             #
11             #
12             package Symbol::Approx::Sub::Random;
13              
14             require 5.006_000;
15 14     14   7285 use strict;
  14         32  
  14         416  
16 14     14   73 use warnings;
  14         26  
  14         810  
17              
18             our ($VERSION, @ISA, $AUTOLOAD);
19              
20             $VERSION = '3.1.3';
21              
22 14     14   82 use Carp;
  14         27  
  14         1307  
23              
24             =head1 NAME
25              
26             Symbol::Approx::Sub::Random
27              
28             =head1 SYNOPSIS
29              
30             See L
31              
32             =head1 METHODS
33              
34             =head2 choose
35              
36             Returns a random index into the array which it is passed.
37              
38             =cut
39              
40             sub choose {
41 6     6 1 84 rand @_;
42             }
43              
44             1;