Show
Ignore:
Timestamp:
04/02/08 19:10:04 (6 years ago)
Author:
tokuhirom
Message:

なんでメソッド名をわたそうと思ったんだろう。俺。Hook と してるよ。あんた。

Files:
1 modified

Legend:

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

    r8662 r8664  
    1313# FIXME: ここなんとかして。どうにかして。なんか anonymous function だと Attribute がうまくあたらないからとりあえずこれで。 
    1414for my $method (qw(name version model device_id server xhtml_compliant comment)) { 
    15     eval qq! sub $method :MobileMethod("$method,EZweb") { shift->{$method} }; !; ## no critic. 
     15    eval qq! sub $method :MobileMethod("EZweb") { shift->{$method} }; !; ## no critic. 
    1616    die $@ if $@; 
    1717} 
    1818 
    19 sub is_tuka : MobileMethod('is_tuka,EZweb') { 
     19sub is_tuka : MobileMethod('EZweb') { 
    2020    my $self = shift; 
    2121    my $tuka = substr( $self->device_id, 2, 1 ); 
     
    2929} 
    3030 
    31 sub is_win : MobileMethod('is_win,EZweb') { 
     31sub is_win : MobileMethod('EZweb') { 
    3232    my $self = shift; 
    3333    my $win = substr( $self->device_id, 2, 1 );