File Coverage

blib/lib/Mobile/WURFL.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Mobile::WURFL;

use strict;
use warnings;
use Carp;

use BerkeleyDB ;
use Storable qw/freeze thaw/;

use Mobile::WURFL::Device;

use base 'Mobile::WURFL::Base';

our $VERSION = '0.02';


sub init {
  my $self = shift;

  $self->SUPER::init;

  my $metaname = 'dbase/wurfl.db';
  my $meta_db = BerkeleyDB::Btree->new(
    -Filename => $metaname,
    -Flags => DB_RDONLY
  ) or confess "Cannot open file $metaname: $!: $BerkeleyDB::Error\n";
  $self->meta_db( $meta_db );

  my $mapname = 'dbase/wurfl_map.db';
  my $map_db = BerkeleyDB::Btree->new(
    -Filename => $mapname,
    -Flags => DB_RDONLY
  ) or confess "Cannot open file $mapname: $!: $BerkeleyDB::Error\n";
  $self->map_db( $map_db );

  my $dbname = 'dbase/wurfl_data.db';
  my $data_db = BerkeleyDB::Btree->new(
    -Filename => $dbname,
    -Flags => DB_RDONLY
  ) or confess "Cannot open file $dbname: $!: $BerkeleyDB::Error\n";
  $self->data_db( $data_db );

  return $self;
}

sub meta_db {
  $_[0]->{'meta_db'} = $_[1] if @_ > 1;
  return $_[0]->{'meta_db'};
}

sub map_db {
  $_[0]->{'map_db'} = $_[1] if @_ > 1;
  return $_[0]->{'map_db'};
}

sub data_db {
  $_[0]->{'data_db'} = $_[1] if @_ > 1;
  return $_[0]->{'data_db'};
}

sub search {
  my $self = shift;
  my $uas = shift;

  my $device_id;
  my $found;

  while (not $found) {
    my $rc = $self->map_db->db_get("-$uas", $device_id);
    if ($rc == 0) {
      $found++;
    } else {
      chop $uas;
    }
  }

  my $buffer;
  $self->data_db->db_get($device_id, $buffer);
  my $s = thaw( $buffer );

  return Mobile::WURFL::Device->new({ device_data => $s });
}


1;
__END__