File Coverage

blib/lib/Mobile/WURFL/Device.pm

Criterion	Covered	Total	%
statement	15	33	45.4
branch	0	8	0.0
condition			n/a
subroutine	5	12	41.6
pod	1	2	50.0
total	21	55	38.1

package Mobile::WURFL::Device;

use 5.008004;
use strict;
use warnings;
use Carp;

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

our $VERSION = '0.01';
our $AUTOLOAD;

sub init {

  my $self = shift;
  my $args = shift;

  confess "missing data at initialization\n" unless defined $args->{device_data};

  $self->device_data( $args->{device_data} );

  return $self;
}

sub device_data {

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

sub _attribute {

  $_[0]->device_data->{attributes}{ $_[1] };
}

sub _list_attributes {

  sort keys %{ $_[0]->device_data->{ attributes } };
}

sub _capability {

  $_[0]->device_data->{capabilities}{ $_[1] };
}

sub _list_capabilities {

  sort keys %{ $_[0]->device_data->{ capabilities } };
}

sub AUTOLOAD {

  my $method = (split /::/, $AUTOLOAD)[ -1 ];
  return if $method eq 'DESTROY';

  if (defined $_[0]->device_data->{capabilities}{$method}) {
    return $_[0]->device_data->{capabilities}{$method};
  }

  confess "method '$method' not found\n";
}


1;
__END__