Lines Matching refs:wall
434 my @wall = $YY->get_dup('Wall') ;435 my %wall ;436 @wall{@wall} = @wall ;437 ok 103, (@wall == 3 && $wall{'Larry'} && $wall{'Stone'} && $wall{'Brick'});447 my %wall = $YY->get_dup('Wall', 1) ;448 ok 106, keys %wall == 3 && $wall{'Larry'} == 1 && $wall{'Stone'} == 1 449 && $wall{'Brick'} == 1 ;