Yet Another CPAN Grep

Iterator-Misc ( R/RO/ROODE/Iterator-Misc-0.03.tar.gz, ROODE, 2005; MetaCPAN )

Iterator-Misc/t/doc.t ( view source; MetaCPAN )

and executed});
is_deeply(\@vals, [1, 3, 9, 27, 81], q{igeometric 2: correct result});
ok ($iter->isnt_exhausted(), q{igeometric 2: iterator isn't exhausted});

@vals = ();
eval
{
    $iter = igeometr

}, q{igeometric third example created and executed});
is_deeply(\@vals, [10, 1, 0.1, 0.01], q{igeometric 3: correct result});
ok ($iter->isnt_exhausted(), q{igeometric 3: iterator isn't exhausted});

Iterator-Misc ( R/RO/ROODE/Iterator-Misc-0.03.tar.gz, ROODE, 2005; MetaCPAN )

Iterator-Misc/t/igeometric.t ( view source; MetaCPAN )

ng
@vals = ();
eval
{
    $iter = igeometric(1, 10, 2);
    push @vals, $iter->value while $iter->isnt_exhausted;
};

is ($@, q{}, q{igeometric (2) created and executed without error});
is_deeply (\@v


@vals = ();
eval
{
    $iter = igeometric(10, 2, 0.5);
    push @vals, $iter->value while $iter->isnt_exhausted;
};

is ($@, q{}, q{igeometric (1/2) created and executed without error});
is_deeply (\