From: Stevan Little <stevan.little@iinteractive.com>
Date: Fri, 2 Jun 2006 18:22:49 +0000 (+0000)
Subject: foo
X-Git-Tag: 0_02~15
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5dc78481c68dda42ebd534e4f40b0c8820ecd384;p=gitmo%2FMoose-Autobox.git

foo
---

diff --git a/lib/Moose/Autobox/Array.pm b/lib/Moose/Autobox/Array.pm
index 1b31e90..c58198e 100644
--- a/lib/Moose/Autobox/Array.pm
+++ b/lib/Moose/Autobox/Array.pm
@@ -37,7 +37,46 @@ sub sort {
     my ($array, $sub) = @_;     
     $sub ||= sub { $a cmp $b }; 
     [ CORE::sort { $sub->($a, $b) } @$array ]; 
-}     
+}    
+
+# ...
+
+sub reduce {
+    my ($array, $func) = @_;
+    my @a = @$array;
+    my $acc = CORE::shift @a;
+    $acc = $func->($acc, $_) foreach @a;
+    return $acc;
+}
+
+sub zip {
+    my ($array, $other) = @_;
+    [ 
+        CORE::map { 
+            [ $array->[$_], $other->[$_] ]        
+        } 0 .. $#{(
+            CORE::scalar @{$array} < CORE::scalar @{$other} 
+                ? $other : $array
+        )}
+    ];
+} 
+
+## 
+
+sub keys { 
+    my ($array) = @_;    
+    [ 0 .. $#{$array} ];
+}
+
+sub values { 
+    my ($array) = @_;    
+    [ @$array ];
+}
+
+sub kv {
+    my ($array) = @_;   
+    [ CORE::map { [ $_, $array->[$_] ] } (0 .. $#{$array}) ];
+}
 
 ## Array Interface
 
@@ -72,21 +111,5 @@ sub shift {
     CORE::shift @$array; 
 }
 
-## 
-
-sub keys { 
-    my ($array) = @_;    
-    [ 0 .. $#{$array} ];
-}
-
-sub values { 
-    my ($array) = @_;    
-    [ @$array ];
-}
-
-sub kv {
-    my ($array) = @_;   
-    [ CORE::map { [ $_, $array->[$_] ] } $array->keys ];
-}
 
 1;
diff --git a/lib/Moose/Autobox/List.pm b/lib/Moose/Autobox/List.pm
index e7fac25..0569854 100644
--- a/lib/Moose/Autobox/List.pm
+++ b/lib/Moose/Autobox/List.pm
@@ -6,6 +6,14 @@ our $VERSION = '0.01';
 
 with 'Moose::Autobox::Value';
 
-requires qw/length grep map join reverse sort/;
+requires qw/
+    length 
+    join     
+    grep map sort
+    reverse
+    reduce
+    zip
+/;
+
 
 1;
\ No newline at end of file
diff --git a/t/001_basic.t b/t/001_basic.t
index 9bb67e3..79274b9 100644
--- a/t/001_basic.t
+++ b/t/001_basic.t
@@ -125,12 +125,47 @@ is_deeply(
 [ 35, 30, 25, 20, 15, 10 ], 
 '... got the correct chained value');
 
+is_deeply(
+$a->keys, 
+[ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 ],
+'... the keys');
+
+is_deeply(
+$a->values, 
+[ 15, 20, 30, 10, 2, 6, 78, 101, 2, 10, 15, 20, 30 ], 
+'... the values');
+
+is_deeply(
+$a->kv, 
+[ [0, 15], [1, 20], [2, 30], [3, 10], [4, 2], [5, 6], [6, 78], 
+  [7, 101], [8, 2], [9, 10], [10, 15], [11, 20], [12, 30] ], 
+'... [ k, v ]');
+
+is([1, 2, 3, 4, 5]->reduce(sub { $_[0] + $_[1] }), 15, '... got the right reduction');
+
+is_deeply(
+    [1, 2, 3, 4, 5]->zip([ 5, 4, 3, 2, 1 ]), 
+    [ [1, 5], [2, 4], [3, 3], [4, 2], [5, 1] ],
+    '... got the right zip');
+
+
 # Hash
 
 my $h = { one => 1, two => 2, three => 3 };
 
 ok($h->defined, '... got the right defined value');
 
+is_deeply(
+$h->keys->sort, 
+[ qw/one three two/ ],
+'... the keys');
+
+is_deeply(
+$h->values->sort, 
+[ 1, 2, 3 ],
+'... the values');
 
+ok($h->exists('two'), '... exists works');
+ok(!$h->exists('five'), '... !exists works');