File Coverage

blib/lib/HTTP/MobileAgent/NonMobile.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	3	4	75.0
total	28	29	96.5

package HTTP::MobileAgent::NonMobile;

use strict;
use vars qw($VERSION);
$VERSION = 0.02;
use base qw(HTTP::MobileAgent);

__PACKAGE__->make_accessors(
    qw(model device_id)
);

sub parse {
    my $self = shift;
    my($name, $version) = split m!/!, $self->user_agent;
    $self->{name} = $name;
    $self->{version} = $version;
    $self->{device_id} = '';
	$self->{model} = '';
}

sub is_non_mobile { 1 }

sub carrier { 'N' }

sub carrier_longname { 'NonMobile' }


1;
__END__