return sub { scalar keys %{$reader->($_[0])} ? 1 : 0 };
}
+sub clear : method {
+ my ($attr, $reader, $writer) = @_;
+ return sub { %{$reader->($_[0])} = () };
+}
+
sub delete : method {
my ($attr, $reader, $writer) = @_;
return sub { delete $reader->($_[0])->{$_[1]} };
=item B<empty>
+=item B<clear>
+
=item B<exists>
=item B<get>