Changeset 20192 for lang/perl/WebService-Simple/trunk/lib

Timestamp:

09/29/08 15:35:04 (2 months ago)

Author:

mattn

Message:

- didn't cache result of Dumper (bug?).
- add accessor 'lite' of W::S::P::X::Lite.pm

Location:

lang/perl/WebService-Simple/trunk/lib/WebService

Files:

• Simple.pm (modified) (1 diff)
• Simple/Parser/XML/Lite.pm (modified) (1 diff)

lang/perl/WebService-Simple/trunk/lib/WebService/Simple.pm

@@ -175 +175 @@
         parser   => $self->response_parser
     );
-    $self->__cache_set( [ $uri, @headers ], $response );
+    $self->__cache_set( [ $uri, @headers ], Data::Dumper::Dumper($response) );
     return $response;
 }

lang/perl/WebService-Simple/trunk/lib/WebService/Simple/Parser/XML/Lite.pm

@@ -5 +5 @@
 use XML::Parser::Lite::Tree;
 use XML::Parser::Lite::Tree::XPath;
+
+__PACKAGE__->mk_accessors($_) for qw(lite);
 
 sub new