File Coverage

blib/lib/Mobile/WURFL/Base.pm

Criterion	Covered	Total	%
statement	15	38	39.4
branch	0	12	0.0
condition	0	12	0.0
subroutine	5	15	33.3
pod	8	10	80.0
total	28	87	32.1

package Mobile::WURFL::Base;

use 5.008004;
use strict;
use warnings;

our $VERSION = '0.01';

use Carp;
use Data::Dumper; # FIXME


sub new {

  my $class = shift;
  my $args = shift;

  confess "argument must be HASHREF" if $args and ref($args) ne 'HASH';

  my $self = bless { }, $class;


  return $self->init( $args );
}

sub init {

  my ($self, $args) = @_;

  $self->wurfl_uri( $args->{uri} || $self->default_wurfl_uri );
  $self->wurfl_xml( $args->{xml} || $self->default_wurfl_xml );
  $self->wurfl_bdb( $args->{bdb} || $self->default_wurfl_bdb );

  return $self;
}

#sub default_wurfl_uri { 'http://www.nusho.it/wurfl/dl.php?t=d&f=wurfl.xml' }
sub default_wurfl_uri { 'http://wurfl.sourceforge.net/wurfl.xml' }
sub default_wurfl_xml { 'wurfl.xml' }
sub default_wurfl_bdb { '/tmp/' }

sub wurfl_uri {

  $_[0]->{'wurfl_uri'} = $_[1] if @_ > 1;
  $_[0]->{'wurfl_uri'};
}

sub wurfl_xml {

  $_[0]->{'wurfl_xml'} = $_[1] if @_ > 1;
  $_[0]->{'wurfl_xml'};
}

sub wurfl_bdb {

  $_[0]->{'wurfl_bdb'} = $_[1] if @_ > 1;
  $_[0]->{'wurfl_bdb'};
}

sub error {

  $_[0]->{'error'} = $_[1] if @_ > 1;
  $_[0]->{'error'};
}

sub error_message {

  $_[0]->{'error_message'} = $_[1] if @_ > 1;
  $_[0]->{'error_message'};
}


1;
__END__