-cmpthese -3, {
- 'tie' => sub { my ($x, $y) = map @a[$x++ % @a], 1 .. 2; my $a = $t{$x}; $t{$y} = $a },
- 'v::m' => sub { my ($x, $y) = map @a[$x++ % @a], 1 .. 2; my $a = $v{$x}; $v{$y} = $a }
+
+print "Fetch:\n";
+cmpthese -1, {
+ 'tie' => sub { $t{a} },
+ 'v::m' => sub { $v{a} }
+};
+
+print "Store:\n";
+cmpthese -1, {
+ 'tie' => sub { $t{a} = 2 },
+ 'v::m' => sub { $v{a} = 2 }
+};
+
+print "Exists:\n";
+cmpthese -1, {
+ 'tie' => sub { exists $t{a} },
+ 'v::m' => sub { exists $v{a} }
+};
+
+print "Delete/store:\n";
+cmpthese -1, {
+ 'tie' => sub { delete $t{a}; $t{a} = 3 },
+ 'v::m' => sub { delete $v{a}; $v{a} = 3 }