-sub check {
- is join(':', map { (defined) ? $_ : 'u' } @c[0 .. 11]),
- join(':', map { (defined) ? $_ : 'u' } @x[0 .. 11]),
- $_[0];
-}
-
-my $i = -1;
-my $wiz = wizard get => sub { ++$c[0] },
- set => sub { ++$c[1] },
- len => sub { ++$c[2] },
- clear => sub { ++$c[3] },
- free => sub { ++$c[4] },
- copy => sub { ++$c[5] },
- dup => sub { ++$c[6] },
- local => sub { ++$c[7] },
- fetch => sub { ++$c[8] },
- store => sub { ++$c[9] },
- 'exists' => sub { ++$c[10] },
- 'delete' => sub { ++$c[11] };
-check('code : create wizard');