File Coverage

blib/lib/HTTP/MobileAgent/NonMobile.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	11	11	100.0
pod	5	7	71.4
total	38	40	95.0

package HTTP::MobileAgent::NonMobile;

use strict;
use vars qw($VERSION);
$VERSION = 0.03;
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' }

sub xhtml_compliant { 1 }

sub _make_display {
    # XXX
}

sub user_id {
    # XXX
}

sub gps_compliant {
    # XXX
}

1;
__END__