view release on metacpan or  search on metacpan

lib/Data/SExpression.pm  view on Meta::CPAN

                push @$array, $self->_fold_lists($cdr->car);
                $cdr = $cdr->cdr;
            }
            return $array;
        }
    }

    return $thing;
}

sub for_all(&@) {$_[0]() or return 0 foreach (@_[1..$#_]); 1;}

sub _fold_alists {
    my $self = shift;
    my $thing = shift;

    #Assume $thing has already been list-folded

    if(ref($thing) eq "ARRAY") {
        if( for_all {consp $_ && scalarp $_->car && scalarp $_->cdr} @{$thing} ) {
            return {map {$_->car => $_ -> cdr} @{$thing}};