Changeset 8709

Show
Ignore:
Timestamp:
04/03/08 09:19:44 (5 years ago)
Author:
tokuhirom
Message:

MobileMethod? じゃなくて CarrierMethod? という名前にする

Location:
lang/perl/HTTP-MobileAttribute/trunk/lib/HTTP
Files:
1 added
1 removed
6 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/HTTP-MobileAttribute/trunk/lib/HTTP/MobileAttribute.pm

    r8662 r8709  
    8787=head1 気になってること 
    8888 
    89 =head2 MobileMethod('html_version,DoCoMo') みたいなのがいっぱいあってまんどい。 
     89=head2 CarrierMethod('html_version,DoCoMo') みたいなのがいっぱいあってまんどい。 
    9090 
    9191__PACKAGE__->plugin_carrier('DoCoMo') ってやると一括で、この Plugin は DoCoMo 用ってことにするとか、そういうのがほしいのかも。 

  • lang/perl/HTTP-MobileAttribute/trunk/lib/HTTP/MobileAttribute/Plugin/Default/DoCoMo.pm

    r8672 r8709  
    1515 
    1616 
    17 sub name : MobileMethod('DoCoMo') { shift->{name} } 
     17sub name : CarrierMethod('DoCoMo') { shift->{name} } 
    1818 
    19 sub cache_size :MobileMethod('DoCoMo') { 
     19sub cache_size :CarrierMethod('DoCoMo') { 
    2020    my $self = shift; 
    2121    return $self->{cache_size} || $DefaultCacheSize; 
    2222} 
    2323 
    24 sub series :MobileMethod('DoCoMo') { 
     24sub series :CarrierMethod('DoCoMo') { 
    2525    my $self  = shift; 
    2626    my $model = $self->model; 
    … …  
    3434} 
    3535 
    36 sub vendor :MobileMethod('DoCoMo') { 
     36sub vendor :CarrierMethod('DoCoMo') { 
    3737    my $self  = shift; 
    3838    my $model = $self->model; 
    … …  
    5353]; 
    5454 
    55 sub html_version: MobileMethod('DoCoMo') { 
     55sub html_version: CarrierMethod('DoCoMo') { 
    5656    my ($self, $c) = @_; 
    5757 

  • lang/perl/HTTP-MobileAttribute/trunk/lib/HTTP/MobileAttribute/Plugin/Default/EZweb.pm

    r8708 r8709  
    1212} 
    1313 
    14 sub is_tuka : MobileMethod('EZweb') { 
     14sub is_tuka : CarrierMethod('EZweb') { 
    1515    my $self = shift; 
    1616    my $tuka = substr( $self->device_id, 2, 1 ); 
    … …  
    2424} 
    2525 
    26 sub is_win : MobileMethod('EZweb') { 
     26sub is_win : CarrierMethod('EZweb') { 
    2727    my $self = shift; 
    2828    my $win = substr( $self->device_id, 2, 1 ); 

  • lang/perl/HTTP-MobileAttribute/trunk/lib/HTTP/MobileAttribute/Plugin/Default/NonMobile.pm

    r8668 r8709  
    44use base qw/HTTP::MobileAttribute::Plugin/; 
    55 
    6 sub model           :MobileMethod('NonMobile') { '' } 
    7 sub device_id       :MobileMethod('NonMobile') { '' } 
    8 sub xhtml_compliant :MobileMethod('NonMobile') { 1 } 
     6sub model           :CarrierMethod('NonMobile') { '' } 
     7sub device_id       :CarrierMethod('NonMobile') { '' } 
     8sub xhtml_compliant :CarrierMethod('NonMobile') { 1 } 
    99 
    10101; 

  • lang/perl/HTTP-MobileAttribute/trunk/lib/HTTP/MobileAttribute/Plugin/Default/ThirdForce.pm

    r8708 r8709  
    1212} 
    1313 
    14 sub is_type_c   :MobileMethod('ThirdForce') { shift->{type} =~ /^C/ } 
    15 sub is_type_p   :MobileMethod('ThirdForce') { shift->{type} =~ /^P/ } 
    16 sub is_type_w   :MobileMethod('ThirdForce') { shift->{type} =~ /^W/ } 
    17 sub is_type_3gc :MobileMethod('ThirdForce') { shift->{type} eq '3GC' } 
     14sub is_type_c   :CarrierMethod('ThirdForce') { shift->{type} =~ /^C/ } 
     15sub is_type_p   :CarrierMethod('ThirdForce') { shift->{type} =~ /^P/ } 
     16sub is_type_w   :CarrierMethod('ThirdForce') { shift->{type} =~ /^W/ } 
     17sub is_type_3gc :CarrierMethod('ThirdForce') { shift->{type} eq '3GC' } 
    1818 
    19 sub xhtml_compliant :MobileMethod('ThirdForce') { 
     19sub xhtml_compliant :CarrierMethod('ThirdForce') { 
    2020    my $self = shift; 
    2121    return ( $self->is_type_w || $self->is_type_3gc ) ? 1 : 0; 

  • lang/perl/HTTP-MobileAttribute/trunk/lib/HTTP/MobileAttribute/Plugin/GPS.pm

    r8668 r8709  
    66our $DoCoMoGPSModels = { map { $_ => 1 } qw(F661i F505iGPS) }; 
    77 
    8 sub is_gps : MobileMethod('DoCoMo') { 
     8sub is_gps : CarrierMethod('DoCoMo') { 
    99    my ($self, $c) = @_; 
    1010    return exists $DoCoMoGPSModels->{ $c->model };