Sha256: 01769bfa99320792c6dcb7a684ca3e84f80a82cdbbd6810352ed7855c7f30545
Contents?: true
Size: 870 Bytes
Versions: 18
Compression:
Stored size: 870 Bytes
Contents
package Moose::Meta::Method::Accessor::Native::Hash::clear;
our $VERSION = '2.2203';
use strict;
use warnings;
use Moose::Role;
with 'Moose::Meta::Method::Accessor::Native::Hash::Writer';
sub _maximum_arguments { 0 }
sub _adds_members { 0 }
# The inner () in this expression is for the benefit of inlining code that
# might end up looking like "values %{ {} }". This is a syntax error in perl
# but 'values %{ { () } }' is not.
sub _potential_value { '{ ( ) }' }
# There are no new members so we don't need to coerce new values (none exist)
# and we always want to check the new (empty) hash as a whole.
sub _inline_coerce_new_values { '' }
sub _check_new_members_only { 0 }
sub _inline_optimized_set_new_value {
my $self = shift;
my ($inv, $new, $slot_access) = @_;
return $slot_access . ' = {};';
}
sub _return_value { '' }
no Moose::Role;
1;
Version data entries
18 entries across 9 versions & 1 rubygems