File Coverage

lib/Rex/Helper/Misc.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 14 15 93.3


line stmt bran cond sub pod time code
1             #
2             # (c) Jan Gehring
3             #
4              
5             package Rex::Helper::Misc;
6              
7 102     102   1504 use v5.12.5;
  102         367  
8 102     102   565 use warnings;
  102         216  
  102         12426  
9              
10             our $VERSION = '1.14.2.3'; # TRIAL VERSION
11              
12             sub get_random {
13 916     916 0 4630 my $count = shift;
14 916         9047 my @chars = @_;
15              
16 916         2543 my $ret = "";
17 916         3720 for ( 1 .. $count ) {
18 10985         24362 $ret .= $chars[ int( rand( scalar(@chars) - 1 ) ) ];
19             }
20              
21 916         12275 return $ret;
22             }
23              
24             1;