package MooseX::AttributeHelpers::MethodProvider::Hash;
use Moose::Role;
-our $VERSION = '0.03';
+our $VERSION = '0.12_01';
+$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
with 'MooseX::AttributeHelpers::MethodProvider::ImmutableHash';
push @values, shift @kvp;
}
- @{ $reader->($_[0]) }{@keys} = {@values};
+ @{ $reader->($_[0]) }{@keys} = @values;
}
};
}
sub delete : method {
my ($attr, $reader, $writer) = @_;
- return sub { CORE::delete $reader->($_[0])->{$_[1]} };
+ return sub {
+ my $hashref = $reader->(shift);
+ CORE::delete @{$hashref}{@_};
+ };
}
1;
=head1 COPYRIGHT AND LICENSE
-Copyright 2007 by Infinity Interactive, Inc.
+Copyright 2007-2008 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>