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   1387 use v5.12.5;
  102         359  
8 102     102   518 use warnings;
  102         225  
  102         12169  
9              
10             our $VERSION = '1.14.2.2'; # TRIAL VERSION
11              
12             sub get_random {
13 917     917 0 4644 my $count = shift;
14 917         10530 my @chars = @_;
15              
16 917         3144 my $ret = "";
17 917         3935 for ( 1 .. $count ) {
18 10997         24744 $ret .= $chars[ int( rand( scalar(@chars) - 1 ) ) ];
19             }
20              
21 917         12115 return $ret;
22             }
23              
24             1;