Searched refs:rand_words (Results 1 – 6 of 6) sorted by relevance
5 use Data::Random qw( rand_words );27 my @words = rand_words( wordlist => $wordlist );43 my @words = rand_words( wordlist => $wordlist, size => $i + 1 );64 rand_words( wordlist => $wordlist, min => $i, max => $num_words );84 my @words = rand_words(110 rand_words( wordlist => $wordlist, size => 2, shuffle => 0 );
100 my @rand_words = ();108 push ( @rand_words, $_ ) if $rand_lines{$line};115 return @rand_words;118 return \@rand_words;
61 sub rand_words { subroutine109 my $rand_words = $wl->get_words( $options{'size'} );115 _shuffle($rand_words) if $options{'shuffle'};119 return @$rand_words;122 return $rand_words;
18 return join " ", @{rand_words( @{$self->{args}} )};
68 - correctly made "shuffle" flag default to 1 for rand_words(),70 - fixed bug where rand_words() would sometimes return less words
24 t/rand_words.t