DB<69> x use strict; my @d; my @a; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d };  wants( @a )
in  $=CODE(0x3025d1c)() from (eval 62)[C:/Dwimperl/perl/lib/perl5db.pl:640]:2
 in  $=strict::import('strict') from (eval 62)[C:/Dwimperl/perl/lib/perl5db.pl:640]:2
2:        use strict; my @d; my @a; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d };  wants( @a );
2:        use strict; my @d; my @a; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d };  wants( @a );
2:        use strict; my @d; my @a; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d };  wants( @a );
in  @=main::wants() from (eval 62)[C:/Dwimperl/perl/lib/perl5db.pl:640]:2
 2:       use strict; my @d; my @a; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d };  wants( @a );
 2:       use strict; my @d; my @a; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d };  wants( @a );
0  undef
1  undef

DB<70> x use strict; my @d; my @b; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d };  wants( undef @b )
in  $=CODE(0x3025f1c)() from (eval 63)[C:/Dwimperl/perl/lib/perl5db.pl:640]:2
 in  $=strict::import('strict') from (eval 63)[C:/Dwimperl/perl/lib/perl5db.pl:640]:2
2:        use strict; my @d; my @b; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d };  wants( undef @b );
2:        use strict; my @d; my @b; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d };  wants( undef @b );
2:        use strict; my @d; my @b; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d };  wants( undef @b );
in  @=main::wants(undef) from (eval 63)[C:/Dwimperl/perl/lib/perl5db.pl:640]:2
 2:       use strict; my @d; my @b; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d };  wants( undef @b );
 2:       use strict; my @d; my @b; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d };  wants( undef @b );
0  undef
1  undef

DB<71> x use strict; my @d; my @c; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d };  wants( @c, undef @c )
in  $=CODE(0x30280a4)() from (eval 64)[C:/Dwimperl/perl/lib/perl5db.pl:640]:2
 in  $=strict::import('strict') from (eval 64)[C:/Dwimperl/perl/lib/perl5db.pl:640]:2
2:        use strict; my @d; my @c; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d };  wants( @c, undef @c );
2:        use strict; my @d; my @c; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d };  wants( @c, undef @c );
2:        use strict; my @d; my @c; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d };  wants( @c, undef @c );
in  @=main::wants(undef) from (eval 64)[C:/Dwimperl/perl/lib/perl5db.pl:640]:2
 2:       use strict; my @d; my @c; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d };  wants( @c, undef @c );
 2:       use strict; my @d; my @c; sub wants{ @d = @_; wantarray ? ( shift @d, shift @d ) : shift @d };  wants( @c, undef @c );
0  undef
1  undef

DB<72>