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

package Moose::Autobox::Hash;
use Moose::Role 'with';

our $VERSION = '0.01';

with 'Moose::Autobox::Ref';

sub exists { 
    my ($hash, $key) = @_;
    CORE::exists $hash->{$key}; 
}
sub keys { 
    my ($hash) = @_;
    [ CORE::keys %{$hash} ];
}

sub values { 
    my ($hash) = @_;    
    [ CORE::values %{$hash} ]; 
}

1;
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	}
	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;