reverse the meaning of 'empty'

[gitmo/Moose.git] / lib / Moose / Meta / Attribute / Native / MethodProvider / Hash.pm

diff --git a/lib/Moose/Meta/Attribute/Native/MethodProvider/Hash.pm b/lib/Moose/Meta/Attribute/Native/MethodProvider/Hash.pm
index e3e1fd2..bf3afb3 100644 (file)
--- a/lib/Moose/Meta/Attribute/Native/MethodProvider/Hash.pm
+++ b/lib/Moose/Meta/Attribute/Native/MethodProvider/Hash.pm
@@ -61,7 +61,7 @@ sub count : method {
 
 sub empty : method {
     my ( $attr, $reader, $writer ) = @_;
-    return sub { scalar CORE::keys %{ $reader->( $_[0] ) } ? 1 : 0 };
+    return sub { scalar CORE::keys %{ $reader->( $_[0] ) } ? 0 : 1 };
 }