Changeset 17957

Timestamp:

08/21/08 19:34:12 (5 years ago)

Author:

tokuhirom

Message:

bug fixed. and added test.

Location:

lang/perl/Nanto/trunk

Files:

• lib/Nanto/Web/MobileAttribute.pm (modified) (2 diffs)
• t/Web/MobileAttribute.t (added)

lang/perl/Nanto/trunk/lib/Nanto/Web/MobileAttribute.pm

@@ -3 +3 @@
 use warnings;
 use HTTP::Engine::Request;
+use HTTP::MobileAttribute;
 
 do {
@@ -9 +10 @@
     $meta->add_attribute(
         mobile_attribute => (
+            is      => 'ro',
+            isa     => 'Object',
+            lazy    => 1,
             default => sub {
                 my $req = shift;
-                HTTP::MobileAttribute->new($req->headers);
+                HTTP::MobileAttribute->new( $req->headers );
             },
-            lazy => 1,
         ),
     );