Help for this page

Select Code to Download

Select or download this

for (tie @ary, "My::Class", "some", "contents";) {
   ...
}

Select or download this

my $aryt = tie @ary, "My::Class", "some", "contents";
@ary = ... ;
for (0..($aryt->FETCHSIZE-1)) {
    do-something($aryt->FETCH($_));
}