diff --git a/Changes b/Changes index fdcfded..28f8586 100644 --- a/Changes +++ b/Changes @@ -8,6 +8,14 @@ http://code.google.com/p/www-mechanize/issues/list 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 ======================================== No new features. If you have 1.56 installed OK, you do NOT need diff --git a/META.yml b/META.yml index 5ce7242..a682edb 100644 --- a/META.yml +++ b/META.yml @@ -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 diff --git a/Makefile.PL b/Makefile.PL index a0881c1..4d0991d 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -39,8 +39,6 @@ my $parms = { '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, @@ -55,6 +53,11 @@ my $parms = { 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} = { resources => { diff --git a/lib/WWW/Mechanize.pm b/lib/WWW/Mechanize.pm index 2e6d893..5034d2a 100644 --- a/lib/WWW/Mechanize.pm +++ b/lib/WWW/Mechanize.pm @@ -6,11 +6,11 @@ WWW::Mechanize - Handy web browsing in a Perl object =head1 VERSION -Version 1.58 +Version 1.60 =cut -our $VERSION = '1.58'; +our $VERSION = '1.60'; =head1 SYNOPSIS @@ -649,7 +649,7 @@ sub _check_unhandled_parms { =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 @@ links. In scalar context, returns an array reference of all links. =cut sub links { - my $self = shift ; + my $self = shift; $self->_extract_links() unless $self->{_extracted_links}; @@ -1021,7 +1021,7 @@ images. In scalar context, returns an array reference of all images. =cut sub images { - my $self = shift ; + my $self = shift; $self->_extract_images() unless $self->{_extracted_images}; @@ -1180,7 +1180,7 @@ context, returns an array reference of all forms. =cut sub forms { - my $self = shift ; + my $self = shift; return @{$self->{forms}} if wantarray; return $self->{forms}; } @@ -1355,16 +1355,16 @@ sub field { =head2 $mech->select($name, \@values) Given the name of a C >> and the C<$value> is an array, only the B 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 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 @@ of the duplicate field to set, use a value which is an anonymous array 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 @@ password, you do not have to fetch the form and inspect the source (or use the F 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 because it acts only on visible fields; @@ -1498,11 +1498,11 @@ you to specify the I of input field you want to set and is 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 C