- [ 'len', '@c', undef, 'my $x = @c', [ 'padav', 'B::OP' ] ],
- [ 'get', '$c[0]', undef, 'my $x = $c[0]', [ $aelem, 'B::OP' ] ],
- [ 'get', '$o[0]', undef, 'my $x = $o[0]', [ 'aelemfast', $aelem_op ] ],
- [ 'get', '$c', undef, '++$c', [ 'preinc', 'B::UNOP' ] ],
- [ 'get', '$c', '$c = 1', '$c ** 2', [ 'pow', 'B::BINOP' ] ],
- [ 'get', '$c', undef, 'my $x = $c', [ 'sassign', 'B::BINOP' ] ],
- [ 'get', '$c', undef, '1 if $c', [ 'and', 'B::LOGOP' ] ],
- [ 'set', '$c', undef, 'bless \$c, "main"', [ 'bless', 'B::LISTOP' ] ],
- [ 'get', '$c', '$c = ""', '$c =~ /x/', [ 'match', 'B::PMOP' ] ],
- [ 'get', '$c', '$c = "Variable::Magic::TestPkg"',
- '$c->foo()', [ 'method_named', 'B::SVOP' ] ],
- [ 'get', '$c', '$c = ""', '$c =~ y/x/y/', [ 'trans', 'B::PVOP' ] ],
- [ 'get', '$c', '$c = 1', '1 for 1 .. $c', [ 'enteriter', 'B::LOOP' ] ],
+ [ 'len', '@c', 'my @c', 'my $x = @c', [ 'padav', 'B::OP' ] ],
+ [ 'get', '$c[0]', 'my @c', 'my $x = $c[0]', [ $aelem, 'B::OP' ] ],
+ [ 'get', '$o[0]', 'local @o', 'my $x = $o[0]', [ 'aelemfast', $aelem_op ] ],
+ [ 'get', '$c', 'my $c = 1', '++$c', [ 'preinc', 'B::UNOP' ] ],
+ [ 'get', '$c', 'my $c = 1', '$c ** 2', [ 'pow', 'B::BINOP' ] ],
+ [ 'get', '$c', 'my $c = 1', 'my $x = $c', [ 'sassign', 'B::BINOP' ] ],
+ [ 'get', '$c', 'my $c = 1', '1 if $c', [ 'and', 'B::LOGOP' ] ],
+ [ 'set', '$c', 'my $c = 1', 'bless \$c, "main"',
+ [ 'bless', 'B::LISTOP' ] ],
+ [ 'get', '$c', 'my $c = ""','$c =~ /x/', [ 'match', 'B::PMOP' ] ],
+ [ 'get', '$c', 'my $c = "Variable::Magic::TestPkg"',
+ '$c->foo()', [ 'method_named', 'B::SVOP' ] ],
+ [ 'get', '$c', 'my $c = ""','$c =~ y/x/y/', [ 'trans', 'B::PVOP' ] ],
+ [ 'get', '$c', 'my $c = 1', '1 for 1 .. $c',
+ [ 'enteriter', 'B::LOOP' ] ],
+ [ 'free','$c', 'my $c = 1', 'last', [ 'last', 'B::OP' ] ],
+ [ 'free','$c', 'L:{my $c = 1', 'last L}', [ 'last', 'B::OP' ] ],