Changeset 847

Show
Ignore:
Timestamp:
02/20/03 18:28:58
Author:
miyagawa
Message:

is_non_mobile method

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • HTTP-MobileAgent/trunk/Changes

    r828 r847  
    11Revision history for Perl extension HTTP::MobileAgent 
     2 
     30.08  Thu Feb 20 18:28:44 JST 2003 
     4        - Added is_non_mobile() method 
    25 
    360.07  Mon Jan 27 12:04:33 JST 2003 
  • HTTP-MobileAgent/trunk/lib/HTTP/MobileAgent.pm

    r829 r847  
    33use strict; 
    44use vars qw($VERSION); 
    5 $VERSION = 0.07
     5$VERSION = 0.08
    66 
    77use HTTP::MobileAgent::Request; 
     
    8181sub is_j_phone { 0 } 
    8282sub is_ezweb   { 0 } 
     83sub is_non_mobile { 0 } 
    8384 
    8485sub is_wap1 { 
     
    165166returns User-Agent name like 'DoCoMo'. 
    166167 
    167 =item is_docomo, is_j_phone, is_ezweb, is_wap1, is_wap2 
     168=item is_docomo, is_j_phone, is_ezweb, is_wap1, is_wap2, is_non_mobile 
    168169 
    169170   if ($agent->is_docomo) { } 
  • HTTP-MobileAgent/trunk/lib/HTTP/MobileAgent/NonMobile.pm

    r777 r847  
    1010    $self->{version} = $version; 
    1111} 
     12 
     13sub is_non_mobile { 1 } 
    1214 
    13151; 
  • HTTP-MobileAgent/trunk/t/06_nonmobile.t

    r826 r847  
    11use strict; 
    2 use Test::More tests => 660
     2use Test::More tests => 825
    33use HTTP::MobileAgent; 
    44 
     
    1111    ok ! $agent->is_j_phone; 
    1212    ok ! $agent->is_ezweb; 
     13    ok $agent->is_non_mobile; 
    1314} 
    1415