1 package Moose::Meta::Method::Accessor::Native::Hash::is_empty;
6 use Scalar::Util qw( looks_like_number );
9 $VERSION = eval $VERSION;
10 our $AUTHORITY = 'cpan:STEVAN';
12 use base 'Moose::Meta::Method::Accessor::Native::Reader';
14 sub _minimum_arguments { 0 }
16 sub _maximum_arguments { 0 }
20 my $slot_access = shift;
22 return "scalar keys \%{ $slot_access } ? 0 : 1";