adds a test for click_button with coordinates

click_button: fix count of present exclusive options (quick fix)

with options "x" and/or "y", @present_exclusive_options would contain "undef" elements, which will be counted too. Therefore click_button with x and y will always have more than > 1 options.

Author: hubandr

lib/WWW/Mechanize.pm

@@ -2538,7 +2538,8 @@ sub click_button {
         value  => 1,
     );
 
-    my @present_exclusive_options = @exclusive_options{ keys %args };
+    my @present_exclusive_options
+        = map { $_ || () } @exclusive_options{ keys %args };
 
     if ( scalar @present_exclusive_options > 1 ) {
         $self->die(

t/local/click_button.t

@@ -113,6 +113,11 @@ subtest 'multiple button selectors' => sub {
     'Dies when multiple button selectors are used';
 };
 
+subtest 'click with coordinates' => sub {
+    $mech->click_button( name => 'button_tag', x => 10, y => 5 );
+    test_click( $mech, 'button_tag', 'Walk' );
+};
+
 sub test_click {
     my $mech  = shift;
     my $name  = shift || 'submit';