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             # $Id$
5             #
6             # Chooser plugin for Symbol::Approx::Sub;
7             #
8             # Copyright (c) 2000, Magnum Solutions Ltd. All rights reserved.
9             #
10             # This module is free software; you can redistribute it and/or
11             # modify it under the same terms as Perl itself.
12             #
13             # $Log$
14             # Revision 1.2 2005/10/22 17:56:22 dave
15             # Added docs.
16             #
17             # Revision 1.1 2002/03/29 17:55:25 dave
18             # Support modules
19             #
20             # Revision 1.1 2001/07/15 20:41:01 dave
21             # Initial revision
22             #
23             #
24             package Symbol::Approx::Sub::Random;
25              
26             require 5.006_000;
27 11     11   993 use strict;
  11         10  
  11         204  
28 11     11   30 use warnings;
  11         13  
  11         611  
29              
30             our ($VERSION, @ISA, $AUTOLOAD);
31              
32             $VERSION = sprintf "%d", '$Revision$ ' =~ /(\d+)/;
33              
34 11     11   39 use Carp;
  11         12  
  11         599  
35              
36             =head1 NAME
37            
38             Symbol::Approx::Sub::Random
39            
40             =head1 SYNOPSIS
41            
42             See L<Symbol::Approx::Sub>
43            
44             =head1 METHODS
45            
46             =head2 choose
47            
48             Returns a random index into the array which it is passed.
49            
50             =cut
51              
52             sub choose {
53 1     1 1 19   rand @_;
54             }
55              
56             1;
57