view release on metacpan or  search on metacpan

t/50dbm_simple.t  view on Meta::CPAN

    }

    if( eval { require List::MoreUtils; } )
    {
	List::MoreUtils->import("part");
    }
    else
    {
	# XXX from PP part of List::MoreUtils
	eval <<'EOP';
sub part(&@) {
    my ($code, @list) = @_;
    my @parts;
    push @{ $parts[$code->($_)] }, $_  for @list;
    return @parts;
}
EOP
    }
}

my $dbi_sql_nano = not DBD::DBM::Statement->isa('SQL::Statement');

t/52dbm_complex.t  view on Meta::CPAN

    }

    if ( eval { require List::MoreUtils; } )
    {
        List::MoreUtils->import("part");
    }
    else
    {
        # XXX from PP part of List::MoreUtils
        eval <<'EOP';
sub part(&@) {
    my ($code, @list) = @_;
    my @parts;
    push @{ $parts[$code->($_)] }, $_  for @list;
    return @parts;
}
EOP
    }
}

my $haveSS = DBD::DBM::Statement->isa('SQL::Statement');