lib/Moose/Autobox/Hash.pm

   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 }
  12
  13 sub keys {
  14     my ($hash) = @_;
  15     [ CORE::keys %$hash ];
  16 }
  17
  18 sub values {
  19     my ($hash) = @_;
  20     [ CORE::values %$hash ];
  21 }
  22
  23 sub kv {
  24     my ($hash) = @_;
  25     [ CORE::map { [ $_, $hash->{$_} ] } CORE::keys %$hash ];
  26 }
  27
  28 1;