view release on metacpan or  search on metacpan

lib/List/Gen.pm  view on Meta::CPAN

1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
sub elems {$_[0]->size}
sub end   {$_[0]->apply->size - 1}
 
{package
    List::Gen::DwimCode;
    my %save;
    sub new {
        my ($class, $gen) = @_;
        my $code = \&$gen;
        bless $code => $class;
        $save{$code} = $gen;
        $code
    }
    sub DESTROY {
        delete $save{$_[0]}
    }
}
sub code {List::Gen::DwimCode->new($_[0])}
 
sub size_from {