_->new(@_) }
sub new {
my $class = shift;
return bless {@_}, ref $class || $class;
}
sub TO_JSON { +{%{$_[0]}} }
sub delete {
my $self = shift;
my @values = CORE::delete @$self{@_};
retur
t = Data::Dict->new(a => 1, b => 2);
Construct a new hash-based L<Data::Dict> object.
=head2 TO_JSON
Alias for L</"to_hash">.
=head2 delete
my $deleted = $dict->delete(@keys);
Delete selected