view release on metacpan or  search on metacpan

lib/POSIX/bsearch.pm  view on Meta::CPAN

require Exporter;
use vars qw($VERSION @ISA @EXPORT 
   $a $b $index $count);
@ISA = qw(Exporter);
@EXPORT = qw( bsearch );

$VERSION = '0.02';


sub bsearch(&$\@){
 # warn "in bsearch with args [@_]";
 my $comparator = shift;
 my ($ca,$cb);
 {
   no strict 'refs';
   my $callerpackage = caller();
   $ca = \*{"$callerpackage\::a"};
   $cb = \*{"$callerpackage\::b"};
 };
 local *$ca = \$a;