/usr/share/perl5/IO/All/HTTP.pm is in libio-all-lwp-perl 0.14-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 | package IO::All::HTTP;
use strict;
use warnings;
our $VERSION = '0.14';
use IO::All::LWP '-base';
use URI::http;
use URI::_userpass;
push @URI::http::ISA, 'URI::_userpass';
const type => 'http';
sub http { my $self=shift; $self->lwp_init(__PACKAGE__, @_) }
1;
__END__
=head1 NAME
IO::All::LWP - Extends IO::All to HTTP URLs
=head1 SYNOPSIS
use IO::All;
$content < io('http://example.org'); # GET webpage into scalar
io('http://example.org') > io('index.html'); # GET to file
"hello\n" > io('http://example.org/index.html'); # PUT webpage
# two ways of getting a page with a password:
$content < io('http://me:secret@example.org');
$content < io('http://example.org')->user('me')->password('secret');
=head1 DESCRIPTION
This module extends L<IO::All> for dealing with HTTP URLs.
Note that you don't need to use it explicitly, as it is autoloaded by
L<IO::All> whenever it sees something that looks like an HTTP URL.
The SYNOPSIS shows some simple typical examples, but there are many other
interesting combinations with other IO::All features! For example, you can get
an HTTP URL and write the content to a socket, or to an FTP URL, of to a DBM
file.
=head1 METHODS
This is a subclass of L<IO::All::LWP>. The only new method is C<http>, which
can be used to create a blank L<IO::All::HTTP> object; or it can also take an
HTTP URL as a parameter. Note that in most cases it is simpler just to call
io('http://example.com'), which calls the C<http> method automatically.
=head1 OPERATOR OVERLOADING
The same operators from IO::All may be used. < GETs an HTTP URL; > PUTs to
an HTTP URL.
=head1 SEE ALSO
L<IO::All>, L<IO::All::LWP>, L<LWP>.
=head1 AUTHORS
Ivan Tubert-Brohman <itub@cpan.org> and
Brian Ingerson <ingy@cpan.org>
=head1 COPYRIGHT
Copyright (c) 2007. Ivan Tubert-Brohman and Brian Ingerson. All rights reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
See L<http://www.perl.com/perl/misc/Artistic.html>
=cut
|