File Coverage

blib/lib/HTTP/MobileAgent/AirHPhone.pm

Criterion	Covered	Total	%
statement	17	20	85.0
branch	1	2	50.0
condition			n/a
subroutine	6	9	66.6
pod	3	5	60.0
total	27	36	75.0

package HTTP::MobileAgent::AirHPhone;

use strict;
use vars qw($VERSION);
$VERSION = 0.19;

use base qw(HTTP::MobileAgent);

__PACKAGE__->make_accessors(
    qw(vendor model model_version browser_version cache_size)
);

sub is_airh_phone { 1 }

sub carrier { 'H' }

sub carrier_longname { 'AirH' }

sub name { 'DDIPOCKET' }

sub parse {
    my $self = shift;
    my $ua = $self->user_agent;
    $ua =~ m!^Mozilla/3\.0\(DDIPOCKET;(.*)\)CNF/2\.0$! or $self->no_match;
    @{$self}{qw(vendor model model_version browser_version cache_size)} = split m!/!, $1;
    $self->{cache_size} =~ s/^c//;
}

sub _make_display {
    # XXX
}


1;
__END__