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 sub keys {
  13     my ($hash) = @_;
  14     [ CORE::keys %{$hash} ];
  15 }
  16
  17 sub values {
  18     my ($hash) = @_;
  19     [ CORE::values %{$hash} ];
  20 }
  21
  22 1;