diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-06-16 13:33:04 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-06-16 13:33:04 +0200 |
| commit | 4950dd1f0240b1398cb735745edcb1ec2099d941 (patch) | |
| tree | 439a394edd048e7eb310d9ffdeefdba416e51ce7 | |
| parent | accept multiples hosts so we don't always hit the same node (diff) | |
| download | net-riak-4950dd1f0240b1398cb735745edcb1ec2099d941.tar.gz | |
clean
| -rw-r--r-- | eg/mapred_01.pl | 3 | ||||
| -rw-r--r-- | eg/mapred_02.pl | 3 | ||||
| -rw-r--r-- | eg/mapred_03.pl | 3 |
3 files changed, 3 insertions, 6 deletions
diff --git a/eg/mapred_01.pl b/eg/mapred_01.pl index 76e26b2..f21d916 100644 --- a/eg/mapred_01.pl +++ b/eg/mapred_01.pl @@ -6,9 +6,8 @@ use 5.010; 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; diff --git a/eg/mapred_02.pl b/eg/mapred_02.pl index 31ab0eb..be12ce9 100644 --- a/eg/mapred_02.pl +++ b/eg/mapred_02.pl @@ -7,9 +7,8 @@ use YAML; 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; diff --git a/eg/mapred_03.pl b/eg/mapred_03.pl index 228260b..9f2e27d 100644 --- a/eg/mapred_03.pl +++ b/eg/mapred_03.pl @@ -6,9 +6,8 @@ use 5.010; 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"; |