Lines Matching refs:compare
149 ok(7, ! defined $dbh->{compare}) ;
539 $dbh1->{compare} = sub {
544 $dbh2->{compare} = sub { $_[0] cmp $_[1] } ;
547 $dbh3->{compare} = sub { length $_[0] <=> length $_[1] } ;
939 $DB_BTREE->{'compare'} = \&Compare ;
965 delete $DB_BTREE->{'compare'} ;
1383 # now an error to pass 'compare' a non-code reference
1386 eval { $dbh->{compare} = 2 };
1387 ok(162, $@ =~ /^Key 'compare' not associated with a code reference at/);
1400 # $dbh->{compare} = sub { $hash{3} = 4 ; length $_[0] } ;
1428 $dbh1->{compare} = sub { ++ $h1_count ; $_[0] cmp $_[1] } ;
1431 $dbh2->{compare} = sub { ;++ $h2_count ; $_[0] cmp $_[1] } ;