+$v{a} = 2;
+
+print "Using Variable::Magic ", $Variable::Magic::VERSION, "\n";
+
+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} }
+};