Commit | Line | Data |
---|---|---|
5f654d8e | 1 | package Moose::Autobox::Hash; |
2 | use Moose::Role 'with'; | |
3 | ||
4 | our $VERSION = '0.01'; | |
5 | ||
6 | with 'Moose::Autobox::Ref'; | |
7 | ||
8 | sub exists { | |
9 | my ($hash, $key) = @_; | |
10 | CORE::exists $hash->{$key}; | |
11 | } | |
e6bb88b0 | 12 | |
5f654d8e | 13 | sub keys { |
14 | my ($hash) = @_; | |
e6bb88b0 | 15 | [ CORE::keys %$hash ]; |
5f654d8e | 16 | } |
17 | ||
18 | sub values { | |
19 | my ($hash) = @_; | |
e6bb88b0 | 20 | [ CORE::values %$hash ]; |
21 | } | |
22 | ||
23 | sub kv { | |
24 | my ($hash) = @_; | |
25 | [ CORE::map { [ $_, $hash->{$_} ] } CORE::keys %$hash ]; | |
5f654d8e | 26 | } |
27 | ||
28 | 1; |