Lines Matching refs:q
38 q{my @a = 1..3; @a = map { splice( @a, 0 ); $_ } (@a); print "@a\n";},
65 q{@a = 1..2; for (@a, 3) { $t = 'x'; $t =~ s/x/@a = ()/e; }},
77 q{map { @a = ($_+=0) x $_ } @a=/\B./g for 100;},
87 q{$a=@F[4,7]-=@F=3},
97 q{sub f { my $x; *G = \1; sub { package DB; ()=caller 1; @a = @DB::args; $x; }->(); } f($G)},
123 q{sub foo { $x=0; \@_; } $x = { qw( a 1 b 2) }; foo(%$x);},
136 …q{sub TIEARRAY {bless []} sub FETCH {[1]} tie my @a, 'main'; my $p = \$a[0]; my @h = ($$p->[0], $$…
148 q{use Carp; @a=(1); f(@a); sub f { my $x = shift(@a); carp($x)}},
160 q{my @a = (1); sub f { @a = () } $a[1] ||= f();},
176 q{@a = (1); foo(@a); sub foo { my $x = shift(@a); my $y = shift; }},
186 q{@a = (1); sub { @a = (); package DB; () = caller(0); 1 for @DB::args; }->(@a);},
196 q{push @$x, f(); sub f { $x = 1; 2; }},
206 q{my @a = ({},{}); sub f { my ($x) = @_; @a = ( {}, {} ); 0 for (); } map { f $_ } @a;},
229 q{my $a = my $b = { qw(a 1 b 2) }; for (values %$a, values %$b) { %$b=() }},
239 …q{my @a = qw(a v); sub f { shift @a; package DB; my @p = caller(0); print "[@DB::args]\n"; } f(@a)…
261 q{@h{ @x = (1) } = @x for 1,2; print for %h;},
271 q{@a = (1,1,1,1); map { [shift @a, shift @a] } @a;},
281 q{my @a = (8); sub g { shift @{$_[0]}; } sub f { g(\@a); return @_; } my @b = f(@a);},
292 q{map $z=~s/x//, 0, $$z; grep 1, @b=1, @b=();},
303 …q{sub f { my($n)=@_; print $n; @a = $n ? (sub { f(0); }, 0) : (); map { ref$_ ? &$_ :$_ } @a; } f(…
314 q{map{%0=map{0}m 0 0}%0=map{0}0},
331 q[sub f { $r = 1; my ($x) = @_; } $r = \{}; f($$r);],
341 q{$[ .= *[ = 'y';},
351 q{@a=[0,0];map { $_=5; pop @$_ for @a } @{$a[0]}},
363 q{$z *= *z=0;},
373 q{$x ^= *x = 0},
385 q{sub o { shift; @a = (shift,shift); } o(@a); o(@a);},
395 q{my $h = {qw(a 1 b 2)}; for (sort values %$h) { delete $h->{ b }; }},
407 q{*z=%::=$a=@b=0},
434 q{map xx->yy, (@z = 1), (@z = ());},
468 q{$$.=$A=*$=0},
480 q{@0=$0|=*0=H or()},
493 q{$$0 ^= ($0 |= (*0 = *H)), *& = ($$0 ^= ($0 |= (*0 = *H = *& = *a6))) for 'a9', 'a9'},
505 q{map@0=%0=0,%0=D..T;},
516 q{map 1, (%x) = (1..3), (%x) = ();},
528 q{map( ($_ = $T % 1), ((%x) = 'T'), ((%x) = 'T'), %$T);},
542 q{map( 1, (%_) = ('D', 'E'), (%_) = (),);},
552 q{map( ((%^H) = ('D'..'FT')), (%_) = ('D'..'G'), (%_) = ());},
562 q{map$$_=0,%$T=%::},
572 q{map*$_= $#$_=8,%_=D.. FD,%_=D.. F},
585 q{map%$_= %_= %$_,%::; map %$_ = %_, *::, $::{Internals::};},
599 q{map 1, %x = (a => 1, b => undef), %x = (Y => 'Z');},
609 q{f { $s=1, @x=2, @x=() } 9},
640 q{map $p[0][0],@z=z,@z=z,@z=z,@z=z,@z=z,@z= ~9},
650 q{map $a[0][0], @a = 0, @a = 1;},
660 q{my @a = 0..1; sub f { my $x = shift; my @b = @a; @a = @b; 1; } map{ f($_) } @a;},
670 q{map /x/g, (%h = ("y", 0)), (%h = ("y", 0))},
699 q{$_.=*_='x';},
711 q{$~|=*~='a';},
723 q{*^V = "*main::"; 1 for Y $\ = $\ = $~ = *\ = $\ = *^ = %^V = *^V;},
747 q{$^A .= *^A = $^A .= ""},
757 q{$$W += $W = 0;},
775 q{$T .= *: = *T = "*main::"},
791 q{($a)=map[split//],G0;$0=map abs($0[$a++]),@$a;},
803 q{$a ^= (*a = 'b');},
816 q{$~ |= *~ = $~;},
828 q{$A .= $$B .= $B = 0},
840 q{'A'->A($A .= *A = @5 = *A * 'A');},
870 q{my @a = 1..5; map { pop @a } @a;},