W3C home > Mailing lists > Public > www-validator-cvs@w3.org > January 2007

perl/modules/WebService/Validator/Feed/lib/WebService/Validator/Feed W3C.pm,1.4,1.5

From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
Date: Thu, 18 Jan 2007 02:40:35 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1H7NCd-0005Vk-PC@lionel-hutz.w3.org>

Update of /sources/public/perl/modules/WebService/Validator/Feed/lib/WebService/Validator/Feed
In directory hutz:/tmp/cvs-serv21082/lib/WebService/Validator/Feed

Modified Files:
	W3C.pm 
Log Message:
removing workarounds for old versions of SOAP::Lite module, requiring version > 0.65

Index: W3C.pm
===================================================================
RCS file: /sources/public/perl/modules/WebService/Validator/Feed/lib/WebService/Validator/Feed/W3C.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- W3C.pm	26 Apr 2006 00:18:58 -0000	1.4
+++ W3C.pm	18 Jan 2007 02:40:33 -0000	1.5
@@ -2,14 +2,14 @@
 use strict;
 use warnings;
 
-use SOAP::Lite;
+use SOAP::Lite 0.65;
 use LWP::UserAgent qw//;
 use URI qw//;
 use URI::QueryParam qw//;
 use Carp qw//;
 use base qw/Class::Accessor/;
 
-our $VERSION = "0.3";
+our $VERSION = "0.4";
 
 __PACKAGE__->mk_accessors    qw/user_agent validator_uri/;
 __PACKAGE__->mk_ro_accessors qw/response request_uri som success/;
@@ -53,15 +53,6 @@
     
     local $_ = $res->content;
     
-
-    # workaround for SOAP::Lite's lack of support for SOAP 1.2
-    s{xmlns:env="http://www.w3.org/2003/05/soap-envelope"}
-     {xmlns:env="http://www.w3.org/2001/06/soap-envelope"};
-
-    # workaround for SOAP::Lite's lack of support for SOAP 1.2
-    s{env:encodingStyle="http://www.w3.org/2003/05/soap-encoding"}
-     {env:encodingStyle="http://www.w3.org/2001/06/soap-encoding"};
-
     my $som;
     eval { $som = SOAP::Deserializer->new->deserialize($_); };
 
@@ -80,11 +71,11 @@
     # check whether this is really the Feed Validator responding
     if ($som->match("/Envelope/Body/feedvalidationresponse")) {
         $self->{'success'} = 1;
-    }
+    }
     # if the response was a SOAP fault
-    elsif ($som->match("/Envelope/Body/Fault")) {
-        $self->{'success'} = 0; 
-    }
+    elsif ($som->match("/Envelope/Body/Fault")) {
+        $self->{'success'} = 0; 
+    }
         
     # return whether the response was successfully processed
     return $self->{'success'};
@@ -161,25 +152,25 @@
 
     return () unless defined $som;
     return $som->valueof("//warning");
-}
-
-sub errorcount
-{
-    my $self = shift;
-    my $som = $self->som;
-    
-    return () unless defined $som;
-    return $som->valueof("//errorcount");
-}
-
-sub warningcount
-{
-    my $self = shift;
-    my $som = $self->som;
-    
-    return () unless defined $som;
-    return $som->valueof("//warningcount");
-}
+}
+
+sub errorcount
+{
+    my $self = shift;
+    my $som = $self->som;
+    
+    return () unless defined $som;
+    return $som->valueof("//errorcount");
+}
+
+sub warningcount
+{
+    my $self = shift;
+    my $som = $self->som;
+    
+    return () unless defined $som;
+    return $som->valueof("//warningcount");
+}
 
 
 
@@ -199,7 +190,7 @@
 
   my $feed_url = "http://www.example.com";
   my $val = WebService::Validator::Feed::W3C->new;
-  my $ok = $val->validate(url => $feed_url);
+  my $ok = $val->validate(uri => $feed_url);
 
   if ($ok and !$val->is_valid) {
       print "Errors:\n";
@@ -209,8 +200,8 @@
 
 =head1 DESCRIPTION
 
-This module is an  interface to the W3C Feed Validation online service 
-L<http://validator.w3.org/feed/>, based on its SOAP 1.2 support. 
+This module is an  interface to the W3C Feed Validation online service 
+L<http://validator.w3.org/feed/>, based on its SOAP 1.2 support. 
 It helps to find errors in RSS or Atom feeds.
 
 The following methods are available:
@@ -265,19 +256,19 @@
 synopsis would currently return something like
 
   ( {
-          type -> 'MissingDescription',
-          line => '23',
-          column => '0',
-          text => 'Missing channel element: description',
-          element =>description,
-          parent =>channel,
+          type -> 'MissingDescription',
+          line => '23',
+          column => '0',
+          text => 'Missing channel element: description',
+          element =>description,
+          parent =>channel,
   } )
 
 
 =item my @warnings = $val->warnings
 
 Returns a list with information about the warnings found for the
-feed
+feed
 
 @@example
 
@@ -326,15 +317,15 @@
 
 =head1 NOTE
 
-Please remember that the Feed Validation service is a shared resource,
+Please remember that the Feed Validation service is a shared resource,
 so do not abuse it: you should make your scripts sleep between requests.
-
+
 
 =head1 AUTHOR
-
-olivier Thereaux <ot@w3.org>
 
-Based on the WebService::Validator::CSS::W3C module
+olivier Thereaux <ot@w3.org>
+
+Based on the WebService::Validator::CSS::W3C module
 by Bjoern Hoehrmann <bjoern@hoehrmann.de> et.al.
  
 This module is licensed under the same terms as Perl itself.
Received on Thursday, 18 January 2007 02:40:40 UTC

This archive was generated by hypermail 2.3.1 : Wednesday, 7 January 2015 15:17:27 UTC