=head1 VERSION
-Version 0.07_01
+Version 0.07_02
=cut
use vars qw/$VERSION/;
BEGIN {
- $VERSION = '0.07_01';
+ $VERSION = '0.07_02';
}
=head1 SYNOPSIS
croak 'Wrong number of arguments for wizard()' if @_ % 2;
my %opts = @_;
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);
+ return _wizard($sig, map { $opts{$_} } qw/data get set len clear free copy dup local fetch store exists delete/);
}
=head2 C<gensig>