[ 'get', '$c', 'my $c = "Variable::Magic::TestPkg"',
'$c->foo()', [ 'method_named', $meth_op ] ],
[ 'get', '$c', 'my $c = ""', '$c =~ y/x/y/', [ 'trans', 'B::PVOP' ] ],
[ 'get', '$c', 'my $c = "Variable::Magic::TestPkg"',
'$c->foo()', [ 'method_named', $meth_op ] ],
[ 'get', '$c', 'my $c = ""', '$c =~ y/x/y/', [ 'trans', 'B::PVOP' ] ],