Changeset 9637

Timestamp:

04/17/08 22:50:00 (5 years ago)

Author:

yappo

Message:

lang/perl/HTML-Entities-ConvertPictogramMobileJp?: HTTP::MobileAttribute? でもつかいたい!

Files:

• lang/perl/HTML-Entities-ConvertPictogramMobileJp/trunk/lib/HTML/Entities/ConvertPictogramMobileJp.pm (modified) (1 diff)

lang/perl/HTML-Entities-ConvertPictogramMobileJp/trunk/lib/HTML/Entities/ConvertPictogramMobileJp.pm

@@ -13 +13 @@
 sub convert_pictogram_entities {
     validate(@_ => +{
-        mobile_agent => +{ isa => 'HTTP::MobileAgent' },
+        mobile_agent => +{
+            callbacks => {
+                'HTTP::MobileAgent or HTTP::MobileAttribute' => sub {
+                    ref $_[0] && ($_[0]->isa('HTTP::MobileAgent') || $_[0]->isa('HTTP::MobileAttribute'))
+                },
+            },
+        },
         html  => 1,
     });