package Moose::Autobox::Hash;
use Moose::Role 'with';
-our $VERSION = '0.01';
+use Carp qw(croak);
+
+our $VERSION = '0.02';
with 'Moose::Autobox::Ref',
'Moose::Autobox::Indexed';
CORE::delete $hash->{$key};
}
+sub merge {
+ my ($left, $right) = @_;
+ croak "You must pass a hashref as argument to merge"
+ unless ref $right eq 'HASH';
+ return { %$left, %$right };
+}
+
# ::Indexed implementation
sub at {
[ CORE::map { [ $_, $hash->{$_} ] } CORE::keys %$hash ];
}
+sub print { CORE::print %{$_[0]} }
+sub say { CORE::print %{$_[0]}, "\n" }
+
1;
__END__
=head1 SYNOPOSIS
use Moose::Autobox;
- use autobox;
- { one => 1, two => 2 }->keys->join(', ')->print; # prints 'one, two'
+ print { one => 1, two => 2 }->keys->join(', '); # prints 'one, two'
=head1 DESCRIPTION
+This is a role to describes a Hash value.
+
=head1 METHODS
=over 4
-=item B<meta>
-
=item B<delete>
+=item B<merge>
+
+Takes a hashref and returns a new hashref with right precedence
+shallow merging.
+
=back
-=head2 Indexed
+=head2 Indexed implementation
=over 4
=back
+=over 4
+
+=item B<meta>
+
+=item B<print>
+
+=item B<say>
+
+=back
+
=head1 BUGS
All complex software has bugs lurking in it, and this module is no
=head1 COPYRIGHT AND LICENSE
-Copyright 2006 by Infinity Interactive, Inc.
+Copyright 2006-2007 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
-=cut
\ No newline at end of file
+=cut
+