use strict;
+use List::MoreUtils qw(any);
use List::Util qw(first);
use Scalar::Util qw(blessed);
use Data::Dumper;
use SL::DBUtils;
-use SL::MoreCommon qw(any listify);
+use SL::MoreCommon qw(listify);
sub get_configs {
$main::lxdebug->enter_sub();
require Exporter;
our @ISA = qw(Exporter);
-our @EXPORT = qw(save_form restore_form compare_numbers any cross);
+our @EXPORT = qw(save_form restore_form compare_numbers cross);
our @EXPORT_OK = qw(ary_union ary_intersect ary_diff listify ary_to_hash uri_encode uri_decode);
use List::MoreUtils qw(zip);
return $a <=> $b;
}
-sub any (&@) {
- my $f = shift;
- return if ! @_;
- for (@_) {
- return 1 if $f->();
- }
- return 0;
-}
-
sub cross(&\@\@) {
my $op = shift;
use vars qw/@A @B/;