| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package HTTP::MobileAttribute::Plugin::DoCoMo::Browser; |
|
2
|
1
|
|
|
1
|
|
648
|
use strict; |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
27
|
|
|
3
|
1
|
|
|
1
|
|
5
|
use warnings; |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
26
|
|
|
4
|
1
|
|
|
1
|
|
4
|
use base qw/HTTP::MobileAttribute::Plugin/; |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
6
|
|
|
5
|
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
# http://www.nttdocomo.co.jp/service/imode/make/content/browser/index.html |
|
7
|
|
|
|
|
|
|
# 主に2009年5月以降に発売となったブラウザキャッシュ500KBサイズ対応の |
|
8
|
|
|
|
|
|
|
# 機種をiモードブラウザ2.0と規定します。 |
|
9
|
|
|
|
|
|
|
sub browser_version :CarrierMethod('DoCoMo') { |
|
10
|
6
|
|
|
6
|
0
|
46
|
my($self, $c) = @_; |
|
11
|
6
|
|
|
|
|
17
|
my $cs = $c->cache_size; # すごく古い機種で undef になる可能性がある |
|
12
|
6
|
100
|
100
|
|
|
86
|
return ($cs && $cs >= 500) ? '2.0' : '1.0'; |
|
13
|
1
|
|
|
1
|
|
874
|
} |
|
|
1
|
|
|
|
|
1200
|
|
|
|
1
|
|
|
|
|
6
|
|
|
14
|
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
1; |
|
16
|
|
|
|
|
|
|
__END__ |