Changeset 4177 for lang/perl/HTTP-MobileAgent/trunk

Timestamp:

01/07/08 19:17:13 (5 years ago)

Author:

tokuhirom

Message:

lang/perl/HTTP-MobileAgent?: added HTTP::MobileAgent::Vodafone->xhtml_compliant

Location:

lang/perl/HTTP-MobileAgent/trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/HTTP/MobileAgent/Vodafone.pm (modified) (2 diffs)
• t/11_softbank_base.t (added)

lang/perl/HTTP-MobileAgent/trunk/Makefile.PL

@@ -7 +7 @@
 build_requires 'Test::More' => 0.32;
 
+use_test_base;
 auto_include;
 WriteAll;

lang/perl/HTTP-MobileAgent/trunk/lib/HTTP/MobileAgent/Vodafone.pm

@@ -165 +165 @@
 }
 
+sub xhtml_compliant {
+    my $self = shift;
+    return ($self->is_type_w || $self->is_type_3gc) ? 1 : 0;
+}
+
 1;
 __END__
@@ -267 +272 @@
 returns undef if unknown.
 
+=item xhtml_compliant
+
+  if ($agent->xhtml_compliant) { }
+
+returns if the agent is XHTML compliant.
+
 =back