1#!/usr/bin/env perl
2use strict;
3use warnings;
4use 5.010;
5
6use Net::Riak;
7
8my $riak = Net::Riak->new();
9
10my $result = $riak->add('goog')->map(get_day_where_high_is('600.00'))->run;
11say "days where high is over 600:";
12map { say $_ } sort {$a cmp $b } @$result;
13
14sub get_day_where_high_is {
15    my $val = shift;
16"
17function(value, keyData, arg) {
18  var data = Riak.mapValuesJson(value)[0];
19  if(data.High && data.High > $val)
20    return [value.key];
21  else
22    return [];
23}
24";
25}
26