+ my $sig = $opts{sig};
+ my @types = qw/data get set len clear free/;
+ push @types, 'copy' if MGf_COPY;
+ push @types, 'dup' if MGf_DUP;
+ delete $opts{dup}; # don't use it for now
+ push @types, 'local' if MGf_LOCAL;
+ return _wizard($sig, map { $opts{$_} } @types);