Changeset 776

Show
Ignore:
Timestamp:
09/21/02 08:56:24
Author:
miyagawa
Message:

non-mobile

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • HTTP-MobileAgent/trunk/lib/HTTP/MobileAgent/NonMobile.pm

    r773 r776  
    44use base qw(HTTP::MobileAgent); 
    55 
    6 # various preferences 
    7  
    86sub parse { 
    97    my $self = shift; 
     8    my($name, $version) = split m!/!, $self->user_agent; 
     9    $self->{name} = $name; 
     10    $self->{version} = $version; 
    1011} 
    1112 
     
    2324  use HTTP::MobileAgent; 
    2425 
    25   $ENV{HTTP_USER_AGENT} = "Mozilla/4.0" 
     26  local $ENV{HTTP_USER_AGENT} = "Mozilla/4.0"; 
    2627  my $agent = HTTP::MobileAgent->new; 
    2728 
     
    3334=head1 METHODS 
    3435 
    35 See L<HTTP::MobileAgent/"METHODS"> for common methods. Here are 
    36 HTTP::MobileAgent::NonMobile specific methods. 
    37  
    38 =back 
    39  
    40 =head1 TODO 
    41  
    42 =over 4 
     36See L<HTTP::MobileAgent/"METHODS"> for common methods. 
    4337 
    4438=back