r42405 - in /branches/upstream/libwww-mechanize-perl/current: Changes META.yml Makefile.PL lib/WWW/Mechanize.pm t/cookies.t

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Sat Aug 22 02:14:06 UTC 2009


Author: jawnsy-guest
Date: Sat Aug 22 02:14:00 2009
New Revision: 42405

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=42405
Log:
[svn-upgrade] Integrating new upstream version, libwww-mechanize-perl (1.60)

Modified:
    branches/upstream/libwww-mechanize-perl/current/Changes
    branches/upstream/libwww-mechanize-perl/current/META.yml
    branches/upstream/libwww-mechanize-perl/current/Makefile.PL
    branches/upstream/libwww-mechanize-perl/current/lib/WWW/Mechanize.pm
    branches/upstream/libwww-mechanize-perl/current/t/cookies.t

Modified: branches/upstream/libwww-mechanize-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-mechanize-perl/current/Changes?rev=42405&op=diff
==============================================================================
--- branches/upstream/libwww-mechanize-perl/current/Changes (original)
+++ branches/upstream/libwww-mechanize-perl/current/Changes Sat Aug 22 02:14:00 2009
@@ -7,6 +7,14 @@
 
 Mech now has its own mailing list at Google Groups:
 http://groups.google.com/group/www-mechanize-users
+
+1.60        Mon Aug 17 00:41:39 CDT 2009
+========================================
+No new features.  Exists only to skip tests that always fail on
+Windows.
+
+Fixed up some minor documentation problems.
+
 
 1.58        Mon Jul 13 22:32:23 CDT 2009
 ========================================

Modified: branches/upstream/libwww-mechanize-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-mechanize-perl/current/META.yml?rev=42405&op=diff
==============================================================================
--- branches/upstream/libwww-mechanize-perl/current/META.yml (original)
+++ branches/upstream/libwww-mechanize-perl/current/META.yml Sat Aug 22 02:14:00 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               WWW-Mechanize
-version:            1.58
+version:            1.60
 abstract:           Handy web browsing in a Perl object
 author:
     - Andy Lester <andy at petdance.com>

Modified: branches/upstream/libwww-mechanize-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-mechanize-perl/current/Makefile.PL?rev=42405&op=diff
==============================================================================
--- branches/upstream/libwww-mechanize-perl/current/Makefile.PL (original)
+++ branches/upstream/libwww-mechanize-perl/current/Makefile.PL Sat Aug 22 02:14:00 2009
@@ -39,8 +39,6 @@
         'HTML::TokeParser'          => 2.28,
         'HTTP::Daemon'              => 0,
         'HTTP::Request'             => 1.30,
-        'HTTP::Server::Simple'      => 0.35,
-        'HTTP::Server::Simple::CGI' => 0,
         'HTTP::Status'              => 0,
         'LWP'                       => 5.829,
         'LWP::UserAgent'            => 5.829,
@@ -54,6 +52,11 @@
     test            => { TESTS => join( ' ', @tests ) },
     clean           => { FILES => 'WWW-Mechanize-*' },
 };
+
+if ( $^O !~ /Win32/ ) {
+    $parms->{PREREQ_PM}->{'HTTP::Server::Simple'} = 0.35;
+    $parms->{PREREQ_PM}->{'HTTP::Server::Simple::CGI'} = 0;
+}
 
 if ( $ExtUtils::MakeMaker::VERSION ge '6.45_01' ) {
     $parms->{META_MERGE} = {

Modified: branches/upstream/libwww-mechanize-perl/current/lib/WWW/Mechanize.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-mechanize-perl/current/lib/WWW/Mechanize.pm?rev=42405&op=diff
==============================================================================
--- branches/upstream/libwww-mechanize-perl/current/lib/WWW/Mechanize.pm (original)
+++ branches/upstream/libwww-mechanize-perl/current/lib/WWW/Mechanize.pm Sat Aug 22 02:14:00 2009
@@ -6,11 +6,11 @@
 
 =head1 VERSION
 
-Version 1.58
-
-=cut
-
-our $VERSION = '1.58';
+Version 1.60
+
+=cut
+
+our $VERSION = '1.60';
 
 =head1 SYNOPSIS
 
@@ -649,7 +649,7 @@
 
 =head1 LINK METHODS
 
-=head2 $mech->links
+=head2 $mech->links()
 
 Lists all the links on the current page.  Each link is a
 WWW::Mechanize::Link object. In list context, returns a list of all
@@ -658,7 +658,7 @@
 =cut
 
 sub links {
-    my $self = shift ;
+    my $self = shift;
 
     $self->_extract_links() unless $self->{_extracted_links};
 
@@ -1021,7 +1021,7 @@
 =cut
 
 sub images {
-    my $self = shift ;
+    my $self = shift;
 
     $self->_extract_images() unless $self->{_extracted_images};
 
@@ -1180,7 +1180,7 @@
 =cut
 
 sub forms {
-    my $self = shift ;
+    my $self = shift;
     return @{$self->{forms}} if wantarray;
     return $self->{forms};
 }
@@ -1355,16 +1355,16 @@
 =head2 $mech->select($name, \@values)
 
 Given the name of a C<select> field, set its value to the value
-specified.  If the field is not E<lt>select multipleE<gt> and the
+specified.  If the field is not C<< <select multiple> >> and the
 C<$value> is an array, only the B<first> value will be set.  [Note:
 the documentation previously claimed that only the last value would
 be set, but this was incorrect.]  Passing C<$value> as a hash with
 an C<n> key selects an item by number (e.g.
-C<< {n => 3} >> or C<{ {n => [2,4]} >>).
+C<< {n => 3} >> or C<< {n => [2,4]} >>).
 The numbering starts at 1.  This applies to the current form.
 
-Returns 1 on successfully setting the value. On failure, returns
-undef and calls C<< $self>warn() >> with an error message.
+Returns true on successfully setting the value. On failure, returns
+false and calls C<< $self>warn() >> with an error message.
 
 =cut
 
@@ -1450,7 +1450,7 @@
 which has the field value and its number as the 2 elements.
 
         # set the second foo field
-        $mech->set_fields( $name => [ 'foo', 2 ] ) ;
+        $mech->set_fields( $name => [ 'foo', 2 ] );
 
 The fields are numbered from 1.
 
@@ -1483,7 +1483,7 @@
 use the F<mech-dump> utility, installed with WWW::Mechanize) to see
 what the field names are; you can just say
 
-    $mech->set_visible( $username, $password ) ;
+    $mech->set_visible( $username, $password );
 
 and the first and second fields will be set accordingly.  The method
 is called set_I<visible> because it acts only on visible fields;
@@ -1498,11 +1498,11 @@
 denoted with an arrayref containing two elements.  So you could
 specify the first radio button with
 
-    $mech->set_visible( [ radio => 'KCRW' ] ) ;
+    $mech->set_visible( [ radio => 'KCRW' ] );
 
 Field values and specifiers can be intermixed, hence
 
-    $mech->set_visible( 'fred', 'secret', [ option => 'Checking' ] ) ;
+    $mech->set_visible( 'fred', 'secret', [ option => 'Checking' ] );
 
 would set the first two fields to "fred" and "secret", and the I<next>
 C<OPTION> menu field to "Checking".
@@ -1653,19 +1653,19 @@
 
 =over 4
 
-=item * name => name
+=item * C<< name => name >>
 
 Clicks the button named I<name> in the current form.
 
-=item * number => n
+=item * C<< number => n >>
 
 Clicks the I<n>th button in the current form. Numbering starts at 1.
 
-=item * value => value
+=item * C<< value => value >>
 
 Clicks the button with the value I<value> in the current form.
 
-=item * input => $inputobject
+=item * C<< input => $inputobject >>
 
 Clicks on the button referenced by $inputobject, an instance of
 L<HTML::Form::SubmitInput> obtained e.g. from
@@ -1674,9 +1674,9 @@
 
 $inputobject must belong to the current form.
 
-=item * x => x
-
-=item * y => y
+=item * C<< x => x >>
+
+=item * C<< y => y >>
 
 These arguments (optional) allow you to specify the (x,y) coordinates
 of the click.
@@ -1753,11 +1753,11 @@
 
 =over 4
 
-=item * fields => \%fields
+=item * C<< fields => \%fields >>
 
 Specifies the fields to be filled in the current form.
 
-=item * with_fields => \%fields
+=item * C<< with_fields => \%fields >>
 
 Probably all you need for the common case. It combines a smart form selector
 and data setting in one operation. It selects the first form that contains all
@@ -1768,24 +1768,24 @@
 
 If you choose this, the form_number, form_name, form_id and fields options will be ignored.
 
-=item * form_number => n
+=item * C<< form_number => n >>
 
 Selects the I<n>th form (calls C<L</form_number()>>).  If this parm is not
 specified, the currently-selected form is used.
 
-=item * form_name => name
+=item * C<< form_name => name >>
 
 Selects the form named I<name> (calls C<L</form_name()>>)
 
-=item * form_id => ID
+=item * C<< form_id => ID >>
 
 Selects the form with ID I<ID> (calls C<L</form_id()>>)
 
-=item * button => button
+=item * C<< button => button >>
 
 Clicks on button I<button> (calls C<L</click()>>)
 
-=item * x => x, y => y
+=item * C<< x => x, y => y >>
 
 Sets the x or y values for C<L</click()>>
 
@@ -1800,7 +1800,7 @@
 =cut
 
 sub submit_form {
-    my( $self, %args ) = @_ ;
+    my( $self, %args ) = @_;
 
     for ( keys %args ) {
         if ( !/^(form_(number|name|fields|id)|(with_)?fields|button|x|y)$/ ) {

Modified: branches/upstream/libwww-mechanize-perl/current/t/cookies.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-mechanize-perl/current/t/cookies.t?rev=42405&op=diff
==============================================================================
--- branches/upstream/libwww-mechanize-perl/current/t/cookies.t (original)
+++ branches/upstream/libwww-mechanize-perl/current/t/cookies.t Sat Aug 22 02:14:00 2009
@@ -6,11 +6,17 @@
 
 use warnings;
 use strict;
-use Test::More tests => 14;
+use Test::More;
+
+if ( $^O =~ /Win32/ ) {
+    plan skip_all => 'HTTP::Server::Simple does not support Windows yet.';
+}
+else {
+    plan tests => 14;
+}
+
 use WWW::Mechanize;
-
 use URI::Escape qw( uri_unescape );
-
 
 use lib 't/';
 use TestServer;




More information about the Pkg-perl-cvs-commits mailing list