Remove unused vars from Mechanize.pm

Author: oalders

lib/WWW/Mechanize.pm

@@ -2983,7 +2983,6 @@ C<undef>, it dumps to STDOUT.
 sub dump_text {
     my $self     = shift;
     my $fh       = shift || \*STDOUT;
-    my $absolute = shift;
 
     print {$fh} $self->text, "\n";
 
@@ -3378,7 +3377,7 @@ sub _extract_images {
                 next if $tag_name =~ m{^/};
 
                 if ( $image_tags{$tag_name} ) {
-                    my $image = $self->_image_from_token( $token, $parser );
+                    my $image = $self->_image_from_token( $token );
                     push( @{ $self->{images} }, $image ) if $image;
                 }
                 elsif ( $tag_name eq 'style' ) {
@@ -3404,7 +3403,6 @@ sub _extract_images {
 sub _image_from_token {
     my $self   = shift;
     my $token  = shift;
-    my $parser = shift;
 
     my $tag   = $token->[0];
     my $attrs = $token->[1];