package MooseX::AttributeHelpers::MethodProvider::ImmutableHash;
use Moose::Role;
-our $VERSION = '0.03';
+our $VERSION = '0.12_01';
+$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
sub exists : method {
sub empty : method {
my ($attr, $reader, $writer) = @_;
- return sub { scalar CORE::keys %{$reader->($_[0])} ? 0 : 1 };
+ return sub { scalar CORE::keys %{$reader->($_[0])} ? 1 : 0 };
}
1;