Lines Matching refs:wall
511 my @wall = $YY->get_dup('Wall') ;512 my %wall ;513 @wall{@wall} = @wall ;514 ok(80, (@wall == 4 && $wall{'Larry'} && $wall{'Stone'} && $wall{'Brick'}) );524 my %wall = $YY->get_dup('Wall', 1) ;525 ok(83, keys %wall == 3 && $wall{'Larry'} == 1 && $wall{'Stone'} == 1 526 && $wall{'Brick'} == 2);