package DDG::Spice::RandomPerson; use DDG::Spice; spice is_cached => 0; spice proxy_cache_valid => "418 1d"; spice wrap_jsonp_callback => 1; spice to => 'http://api.randomuser.me/'; triggers start => 'random person'; # spice to => 'http://api.randomuser.me/?gender=$1'; # triggers start => 'random'; # sub random_gender { # my @genders = ("male", "female"); # my $random_gender = $genders[rand @genders]; # return $random_gender; # } handle remainder_lc => sub { return "" unless $_; return; # my $remainder = $_; # my $gender; # # srand(); # $gender = $1 if $remainder =~ m/(female|male)/; # $gender = random_gender() if $remainder =~ m/person|user/; # return unless $gender; # return $gender; }; 1;