Searched defs:iota (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/File/t/
H A D40_abs_cache.t61 $iota = iota('a',9);
62 print "@R" eq $iota
63 ? "ok $N\n" : "not ok $N \# expected ($iota), got (@R)\n";
85 $iota = iota('b', 9);
86 print "@R" eq $iota ? "ok $N\n" : "not ok $N \# expected ($iota), got (@R)\n";
271 sub iota { subroutine

Completed in 20 milliseconds