File Coverage

blib/lib/Number/Phone/NO/Data.pm

Criterion	Covered	Total	%
statement	30	31	96.7
branch	16	24	66.6
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	50	60	83.3

package
  Number::Phone::NO::Data;

use strict;
use warnings;

use DBM::Deep;
our $db = DBM::Deep->new( { fh => \*DATA, type => DBM::Deep->TYPE_ARRAY, locking => 0 });
our $count = 1164;
our $DEBUG = 0;
sub lookup {
    my $nr = shift;
    my $f = shift;
    my $t = shift;
    $f = 0 unless defined $f;
    $t = $count unless defined $t;

    my $delta = sprintf("%d", ($t - $f) / 2);
    my $bucket_id = $f + $delta;
    die "bad bucket_id: $bucket_id out of range" if ($bucket_id > $count);
    warn "lookup: $nr  -- $f - $t, looking in $bucket_id" if $DEBUG;
    my $bucket = $db->get($bucket_id);

    warn $bucket->{from} . " - " . $bucket->{to} if $DEBUG;

    if ($nr < $bucket->{from}) {

        my $new_id = $f + $delta;
        warn "below our bucket, looking in $f - $new_id" if $DEBUG;
        return unless $delta; # if $delta is 0 we are in the last possible bucket
        return lookup($nr, $f, $new_id);

    } elsif ($nr > $bucket->{to}) {

        my $new_id = $bucket_id;
        warn "above our bucket, looking in $new_id - $t" if $DEBUG;
        return unless $delta; # if $delta is 0 we are in the last possible bucket
        return lookup($nr, $new_id, $t);
    } else {
#        # YAY :p
        return $bucket;
        warn "our bucket, yay" if $DEBUG;
    }
}
1;

__DATA__