Lines Matching refs:map
45 join(",", map {sprintf "%02d",$_} 9..99);
108 print join(":", map "[$_]", "".."B") eq '[]' ? "ok 24\n" : "not ok 24\n";
109 print join(":", map "[$_]", undef.."B") eq '[]' ? "ok 25\n" : "not ok 25\n";
110 print join(":", map "[$_]", "B".."") eq '' ? "ok 26\n" : "not ok 26\n";
111 print join(":", map "[$_]", "B"..undef) eq '' ? "ok 27\n" : "not ok 27\n";
114 print join(":", map "[$_]", undef..undef) eq '[]' ? "ok 28\n" : "not ok 28\n";
130 print join(":", map "[$_]", @foo) eq '[]' ? "ok 33\n" : "not ok 33\n";
133 print join(":", map "[$_]", @foo) eq '[]' ? "ok 34\n" : "not ok 34\n";
136 print join(":", map "[$_]", @foo) eq '' ? "ok 35\n" : "not ok 35\n";
139 print join(":", map "[$_]", @foo) eq '' ? "ok 36\n" : "not ok 36\n";
142 print join(":", map "[$_]", @foo) eq '[]' ? "ok 37\n" : "not ok 37\n";