File tree Expand file tree Collapse file tree 3 files changed +11
-11
lines changed Expand file tree Collapse file tree 3 files changed +11
-11
lines changed Original file line number Diff line number Diff line change 1
1
# !perl -w
2
2
3
- use Test::More tests => 79;
3
+ use HTTP::Cookies ();
4
+ use HTTP::Request ();
5
+ use HTTP::Response ();
6
+ use URI ();
4
7
5
- use HTTP::Cookies;
6
- use HTTP::Request;
7
- use HTTP::Response;
8
+ use Test::More tests => 79;
8
9
9
10
# -------------------------------------------------------------------
10
11
# First we check that it works for the original example at
@@ -443,7 +444,6 @@ $c->extract_cookies($res);
443
444
444
445
print $c -> as_string;
445
446
446
- require URI;
447
447
$req = HTTP::Request-> new(POST => URI-> new(" http://foo.bar.acme.com/foo" ));
448
448
$c -> add_cookie_header($req );
449
449
# print $req->as_string;
Original file line number Diff line number Diff line change 1
1
use strict;
2
2
use Test::More;
3
- use HTTP::Cookies;
4
- use HTTP::Response;
5
- use HTTP::Request;
3
+ use HTTP::Cookies () ;
4
+ use HTTP::Response () ;
5
+ use HTTP::Request () ;
6
6
7
7
my $CRLF =" \015\012 " ;
8
8
Original file line number Diff line number Diff line change @@ -2,9 +2,9 @@ use strict;
2
2
use warnings;
3
3
use Test::More;
4
4
5
- use HTTP::Cookies;
6
- use HTTP::Request;
7
- use HTTP::Response;
5
+ use HTTP::Cookies () ;
6
+ use HTTP::Request () ;
7
+ use HTTP::Response () ;
8
8
9
9
my $nextyear = 1901+(gmtime ())[5];
10
10
You can’t perform that action at this time.
0 commit comments