From 4950dd1f0240b1398cb735745edcb1ec2099d941 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Wed, 16 Jun 2010 13:33:04 +0200
Subject: clean

---
 eg/mapred_01.pl | 3 +--
 eg/mapred_02.pl | 3 +--
 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";
-- 
cgit v1.2.3