foo

[gitmo/Moose-Autobox.git] / lib / Moose / Autobox / Hash.pm

diff --git a/lib/Moose/Autobox/Hash.pm b/lib/Moose/Autobox/Hash.pm
index 2cc99a3..52238c7 100644 (file)
--- a/lib/Moose/Autobox/Hash.pm
+++ b/lib/Moose/Autobox/Hash.pm
@@ -9,14 +9,20 @@ sub exists {
     my ($hash, $key) = @_;
     CORE::exists $hash->{$key}; 
 }
+
 sub keys { 
     my ($hash) = @_;
-    [ CORE::keys %{$hash} ];
+    [ CORE::keys %$hash ];
 }
 
 sub values { 
     my ($hash) = @_;    
-    [ CORE::values %{$hash} ]; 
+    [ CORE::values %$hash ]; 
+}
+
+sub kv {
+    my ($hash) = @_;    
+    [ CORE::map { [ $_, $hash->{$_} ] } CORE::keys %$hash ];    
 }
 
 1;
\ No newline at end of file