Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

clean

  • Loading branch information...
commit 4950dd1f0240b1398cb735745edcb1ec2099d941 1 parent 8093f1b
@franckcuny authored
Showing with 3 additions and 6 deletions.
  1. +1 −2  eg/mapred_01.pl
  2. +1 −2  eg/mapred_02.pl
  3. +1 −2  eg/mapred_03.pl
View
3  eg/mapred_01.pl
@@ -6,9 +6,8 @@
use Net::Riak;
my $riak = Net::Riak->new();
-my $result;
-$result = $riak->add('goog')->map(get_day_where_high_is('600.00'))->run;
+my $result = $riak->add('goog')->map(get_day_where_high_is('600.00'))->run;
say "days where high is over 600:";
map { say $_ } sort {$a cmp $b } @$result;
View
3  eg/mapred_02.pl
@@ -7,9 +7,8 @@
use Net::Riak;
my $riak = Net::Riak->new();
-my $result;
-$result = $riak->add('goog')->map(days_where_close_is_lower_than_open())->run;
+my $result = $riak->add('goog')->map(days_where_close_is_lower_than_open())->run;
say "days where close is lower than open";
map { say $_ } sort {$a cmp $b} @$result;
View
3  eg/mapred_03.pl
@@ -6,9 +6,8 @@
use Net::Riak;
my $riak = Net::Riak->new();
-my $result;
-$result =
+my $result =
$riak->add('goog')->map(map_max_daily_variance())
->reduce(reduce_max_daily_variance())->run;
say "max daily variance";
Please sign in to comment.
Something went wrong with that request. Please try again.