1 package Moose::Meta::Method::Accessor::Native::Hash::clear;
8 with 'Moose::Meta::Method::Accessor::Native::Hash::Writer';
10 sub _maximum_arguments { 0 }
12 sub _adds_members { 0 }
14 sub _potential_value { '{}' }
16 sub _inline_optimized_set_new_value {
18 my ($inv, $new, $slot_access) = @_;
20 return $slot_access . ' = {};';
23 sub _return_value { '' }