Skip to content

Commit 37d0d49

Browse files
committed
Apply perlimports to lib directory
Use a :: suffix on Tie::RefHash so that perlimports recognizes it as actually being used in the module.
1 parent a998a29 commit 37d0d49

File tree

1 file changed

+5
-6
lines changed

1 file changed

+5
-6
lines changed

lib/WWW/Mechanize.pm

Lines changed: 5 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -136,12 +136,11 @@ use warnings;
136136

137137
our $VERSION = '2.13';
138138

139-
use Tie::RefHash;
140-
use HTTP::Request 1.30;
141-
use LWP::UserAgent 6.45;
142-
use HTML::Form 1.00;
139+
use Tie::RefHash ();
140+
use HTTP::Request 1.30 ();
141+
use HTML::Form 1.00 ();
143142
use HTML::TokeParser ();
144-
use Scalar::Util qw(tainted);
143+
use Scalar::Util qw( tainted );
145144

146145
use base 'LWP::UserAgent';
147146

@@ -2535,7 +2534,7 @@ sub submit_form {
25352534
# Assume that each filtered set only has a given form object once.
25362535
# So we can count occurrences.
25372536
#
2538-
tie my %c, 'Tie::RefHash' or $self->die('Cannot determine a form to use');
2537+
tie my %c, Tie::RefHash:: or $self->die('Cannot determine a form to use');
25392538
foreach (@filtered_sets) {
25402539
foreach (@$_) {
25412540
++$c{$_};

0 commit comments

Comments
 (0)