Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

LWP::Simple::Cookies - adds cookie support to LWP::Simple

by diotalevi (Canon)
on Oct 15, 2003 at 20:45 UTC ( #299544=sourcecode: print w/replies, xml ) Need Help??
Category: Web Stuff
Author/Contact Info
Description:

This module alters the operation of LWP::Simple so that it keeps track of any cookies presented by the server. Any import options are passed directly to HTTP::Cookies.

package LWP::Simple::Cookies;
use strict;
use warnings;

sub import {
    my $pkg = shift;
    
    require HTTP::Cookies;
    require LWP::Simple;

    LWP::Simple->import( '$ua' );
    no strict 'vars';
    $ua->cookie_jar( @_
                     ? HTTP::Cookies->new( @_ )
                     : {} );
}

1;

__END__

=head1 NAME

LWP::Simple::Cookies - adds cookie support to LWP::Simple

=head1 SYNOPSIS

 use LWP::Simple;
 use LWP::Simple::Cookies ( autosave => 1,
                            file => "$ENV{'HOME'}/lwp_cookies.dat" );

 # Cookies are now used.
 get( ... );

=head1 DESCRIPTION

This module alters the operation of LWP::Simple so that it keeps track
+ of
any cookies presented by the server. Any import options are passed dir
+ectly
to HTTP::Cookies->new.

=head1 CAVEAT

You are allowed to neglect to load the LWP::Simple module but be aware
+ that
doing this prevents all of LWP::Simple's functions from being imported
into your code. Use of this module as in the example mostly closely mi
+rrors
a normal LWP::Simple experience.

=head1 SEE ALSO

L<LWP::Simple>, L<HTTP::Cookies>

=head1 AUTHOR

Joshua b. Jore E<lt>jjore@cpan.orgE<gt>

=cut
Replies are listed 'Best First'.
Re: LWP::Simple::Cookies - adds cookie support to LWP::Simple (just require)
by tye (Sage) on Oct 16, 2003 at 15:32 UTC
    if ( not LWP::Simple->can( 'import' ) ) { require LWP::Simple; }

    This doesn't buy you anything over a simple require LWP::Simple. [Unless you are thinking that can() is significantly faster than the hash lookup that require already does, which I am unable to imagine a situation where I'd consider the difference "significant" even if can() was instantaneous.] (:

                    - tye

      Er, no. Whatever reason I had in not doing an unconditional require() has entirely evaporated.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: sourcecode [id://299544]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2019-12-06 03:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Strict and warnings: which comes first?



    Results (154 votes). Check out past polls.

    Notices?