Changeset 8652

Timestamp:

04/02/08 17:20:59 (5 years ago)

Author:

tokuhirom

Message:

Vodafone にも xhtml_compliant のメソッドはほしいな。と。

Files:

• lang/perl/HTTP-MobileAttribute/trunk/lib/HTTP/MobileAttribute/Plugin/Default/ThirdForce.pm (modified) (1 diff)

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

@@ -22 +22 @@
 sub is_type_w   :MobileMethod('is_type_w,ThirdForce')   { shift->{type} =~ /^W/ }
 sub is_type_3gc :MobileMethod('is_type_3gc,ThirdForce') { shift->{type} eq '3GC' }
+
+sub xhtml_compliant :MobileMethod('xhtml_compliant,ThirdForce') {
+    my $self = shift;
+    return ( $self->is_type_w || $self->is_type_3gc ) ? 1 : 0;
+}
 
 sub user_agent { shift->{user_agent} }