Mail-Box-POP3-3.007/ 0000755 0001750 0000144 00000000000 15000520502 014355 5 ustar 00markov users 0000000 0000000 Mail-Box-POP3-3.007/README.md 0000644 0001750 0000144 00000004041 15000520420 015632 0 ustar 00markov users 0000000 0000000 # distribution Mail-Box-POP3
* My extended documentation:
* Development via GitHub:
* Download from CPAN:
* Indexed from CPAN:
Until release 3.0, this module was an integral part of the Mail-Box
distribution. This distribution implements a client connector to a
POP3 server.
## Development → Release
Important to know, is that I use an extension on POD to write the manuals.
The "raw" unprocessed version is visible on GitHub. It will run without
problems, but does not contain manual-pages.
Releases to CPAN are different: "raw" documentation gets removed from
the code and translated into real POD and clean HTML. This reformatting
is implemented with the OODoc distribution (A name I chose before OpenOffice
existed, sorry for the confusion)
Clone from github for the "raw" version. For instance, when you want
to contribute a new feature.
On github, you can find the processed version for each release. But the
better source is CPAN; to get it installed simply run:
```sh
cpan -i Mail::Box::POP3
```
## Contributing
When you want to contribute to this module, you do not need to provide
a perfect patch... actually: it is nearly impossible to create a patch
which I will merge without modification. Usually, I need to adapt the
style of code and documentation to my own strict rules.
When you submit an extension, please contribute a set with
1. code
2. code documentation
3. regression tests in t/
**Please note:**
When you contribute in any way, you agree to transfer the copyrights to
Mark Overmeer (you will get the honors in the code and/or ChangeLog).
You also automatically agree that your contribution is released under
the same license as this project: licensed as perl itself.
## Copyright and License
This project is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
See
Mail-Box-POP3-3.007/lib/ 0000755 0001750 0000144 00000000000 15000520502 015123 5 ustar 00markov users 0000000 0000000 Mail-Box-POP3-3.007/lib/Mail/ 0000755 0001750 0000144 00000000000 15000520502 016005 5 ustar 00markov users 0000000 0000000 Mail-Box-POP3-3.007/lib/Mail/Box/ 0000755 0001750 0000144 00000000000 15000520502 016535 5 ustar 00markov users 0000000 0000000 Mail-Box-POP3-3.007/lib/Mail/Box/POP3s.pm 0000644 0001750 0000144 00000001417 15000520477 020015 0 ustar 00markov users 0000000 0000000 # Copyrights 2001-2025 by [Mark Overmeer].
# For other contributors see ChangeLog.
# See the manual pages for details on the licensing terms.
# Pod stripped from pm file by OODoc 2.03.
# This code is part of distribution Mail-Box-POP3. Meta-POD processed with
# OODoc into POD and HTML manual-pages. See README.md
# Copyright Mark Overmeer. Licensed under the same terms as Perl itself.
package Mail::Box::POP3s;{
our $VERSION = '3.007';
}
use base 'Mail::Box::POP3';
use strict;
use warnings;
sub init($)
{ my ($self, $args) = @_;
$args->{server_port} ||= 995;
$self->SUPER::init($args);
$self;
}
sub type() {'pop3s'}
#-------------------------------------------
sub popClient(%)
{ my $self = shift;
$self->SUPER::popClient(@_, use_ssl => 1);
}
1;
Mail-Box-POP3-3.007/lib/Mail/Box/POP3/ 0000755 0001750 0000144 00000000000 15000520502 017256 5 ustar 00markov users 0000000 0000000 Mail-Box-POP3-3.007/lib/Mail/Box/POP3/Test.pm 0000644 0001750 0000144 00000003344 15000520477 020552 0 ustar 00markov users 0000000 0000000 # Copyrights 2001-2025 by [Mark Overmeer].
# For other contributors see ChangeLog.
# See the manual pages for details on the licensing terms.
# Pod stripped from pm file by OODoc 2.03.
# This code is part of distribution Mail-Box-POP3. Meta-POD processed with
# OODoc into POD and HTML manual-pages. See README.md
# Copyright Mark Overmeer. Licensed under the same terms as Perl itself.
package Mail::Box::POP3::Test;{
our $VERSION = '3.007';
}
use base 'Exporter';
use strict;
use warnings;
use Mail::Transport::POP3;
use List::Util 'first';
use File::Spec;
our @EXPORT = qw/start_pop3_server start_pop3_client/;
#
# Start POP3 server for tests
#
sub start_pop3_server($;$)
{ my $popbox = shift;
my $setting = shift || '';
my $serverscript = File::Spec->catfile('t', 'server');
# Some complications to find-out $perl, which must be absolute and
# untainted for perl5.6.1, but not for the other Perl's.
my $perl = $^X;
unless(File::Spec->file_name_is_absolute($perl))
{ my @path = split /\:|\;/, $ENV{PATH};
$perl = first { -x $_ }
map { File::Spec->catfile($_, $^X) }
@path;
}
$perl =~ m/(.*)/;
$perl = $1;
%ENV = ();
open(my $server, "$perl $serverscript $popbox $setting|")
or die "Could not start POP3 server\n";
my $line = <$server>;
my $port = $line =~ m/(\d+)/ ? $1
: die "Did not get port specification, but '$line'";
($server, $port);
}
#
# START_POP3_CLIENT PORT, OPTIONS
#
sub start_pop3_client($@)
{ my ($port, @options) = @_;
Mail::Transport::POP3->new
( hostname => '127.0.0.1'
, port => $port
, username => 'user'
, password => 'password'
, @options
);
}
1;
Mail-Box-POP3-3.007/lib/Mail/Box/POP3/Message.pod 0000644 0001750 0000144 00000036644 15000520501 021362 0 ustar 00markov users 0000000 0000000 =encoding utf8
=head1 NAME
Mail::Box::POP3::Message - one message on a POP3 server
=head1 INHERITANCE
Mail::Box::POP3::Message
is a Mail::Box::Net::Message
is a Mail::Box::Message
is a Mail::Message
is a Mail::Reporter
=head1 SYNOPSIS
my $folder = new Mail::Box::POP3 ...
my $message = $folder->message(10);
=head1 DESCRIPTION
A C represents one message on a POP3 server,
maintained by a L folder. Each message is stored as
separate entity on the server, and maybe temporarily in your program
as well.
Extends L<"DESCRIPTION" in Mail::Box::Net::Message|Mail::Box::Net::Message/"DESCRIPTION">.
=head1 METHODS
Extends L<"METHODS" in Mail::Box::Net::Message|Mail::Box::Net::Message/"METHODS">.
=head2 Constructors
Extends L<"Constructors" in Mail::Box::Net::Message|Mail::Box::Net::Message/"Constructors">.
=over 4
=item $obj-EB(%options)
Inherited, see L
=item Mail::Box::POP3::Message-EB(%options)
-Option --Defined in --Default
body Mail::Message undef
body_type Mail::Box::Message Mail::Message::Body::Lines
deleted Mail::Message
field_type Mail::Message undef
folder Mail::Box::Message
head Mail::Message undef
head_type Mail::Message Mail::Message::Head::Complete
labels Mail::Message {}
log Mail::Reporter 'WARNINGS'
messageId Mail::Message undef
modified Mail::Message
size Mail::Box::Message undef
trace Mail::Reporter 'WARNINGS'
trusted Mail::Message
unique Mail::Box::Net::Message
=over 2
=item body => OBJECT
=item body_type => CODE|CLASS
=item deleted => BOOLEAN
=item field_type => CLASS
=item folder => FOLDER
=item head => OBJECT
=item head_type => CLASS
=item labels => ARRAY|HASH
=item log => LEVEL
=item messageId => STRING
=item modified => BOOLEAN
=item size => INTEGER
=item trace => LEVEL
=item trusted => BOOLEAN
=item unique => STRING
=back
=back
=head2 Constructing a message
Extends L<"Constructing a message" in Mail::Box::Net::Message|Mail::Box::Net::Message/"Constructing a message">.
=over 4
=item $obj-EB( [<$rg_object|%options>] )
Inherited, see L
=item Mail::Box::POP3::Message-EB( [$message|$part|$body], $content )
Inherited, see L
=item Mail::Box::POP3::Message-EB($body, [$head], $headers)
Inherited, see L
=item $obj-EB(%options)
Inherited, see L
=item $obj-EB(%options)
Inherited, see L
=item $obj-EB(%options)
Inherited, see L
=item $obj-EB(%options)
Inherited, see L
=item $obj-EB(%options)
Inherited, see L
=item $obj-EB()
Inherited, see L
=item $obj-EB()
Inherited, see L
=item $obj-EB(STRING)
Inherited, see L
=item Mail::Box::POP3::Message-EB($fh|STRING|SCALAR|ARRAY, %options)
Inherited, see L
=item $obj-EB(%options)
Inherited, see L
=item $obj-EB(%options)
Inherited, see L
=item $obj-EB( [STRING|$field|$address|ARRAY-$of-$things] )
Inherited, see L
=item $obj-EB(STRING)
=item Mail::Box::POP3::Message-EB(STRING)
Inherited, see L
=back
=head2 The message
Extends L<"The message" in Mail::Box::Net::Message|Mail::Box::Net::Message/"The message">.
=over 4
=item $obj-EB()
Inherited, see L
=item $obj-EB($folder, %options)
Inherited, see L
=item $obj-EB( [$folder] )
Inherited, see L
=item $obj-EB()
Inherited, see L
=item $obj-EB()
Inherited, see L
=item $obj-EB()
Inherited, see L
=item $obj-EB($folder, %options)
Inherited, see L
=item $obj-EB()
Inherited, see L
=item $obj-EB( [$fh] )
Inherited, see L
=item $obj-EB( [$mailer], %options )
Inherited, see L
=item $obj-EB( [$integer] )
Inherited, see L
=item $obj-EB()
Returns the size of this message. If the message is still on the remote
server, POP is used to ask for the size. When the message is already loaded
onto the local system, the size of the parsed message is taken. These
sizes can differ because the difference in line-ending representation.
=item $obj-EB()
Inherited, see L
=item $obj-EB( [STRING|undef] )
Inherited, see L
=item $obj-EB( [$fh] )
Inherited, see L
=back
=head2 The header
Extends L<"The header" in Mail::Box::Net::Message|Mail::Box::Net::Message/"The header">.
=over 4
=item $obj-EB()
Inherited, see L
=item $obj-EB()
Inherited, see L
=item $obj-EB()
Inherited, see L
=item $obj-EB()
Inherited, see L
=item $obj-EB()
Inherited, see L
=item $obj-EB($fieldname)
Inherited, see L
=item $obj-EB()
Inherited, see L
=item $obj-EB( [$head] )
Inherited, see L
=item $obj-EB()
Inherited, see L
=item $obj-EB()
Inherited, see L
=item $obj-EB($fieldname)
Inherited, see L
=item $obj-EB()
Inherited, see L
=item $obj-EB()
Inherited, see L
=item $obj-EB()
Inherited, see L
=back
=head2 The body
Extends L<"The body" in Mail::Box::Net::Message|Mail::Box::Net::Message/"The body">.
=over 4
=item $obj-EB( [$body] )
Inherited, see L
=item $obj-EB()
Inherited, see L
=item $obj-EB(%options)
Inherited, see L
=item $obj-EB(%options)
Inherited, see L
=item $obj-EB()
Inherited, see L
=item $obj-EB()
Inherited, see L
=item $obj-EB( [<'ALL'|'ACTIVE'|'DELETED'|'RECURSE'|$filter>] )
Inherited, see L
=back
=head2 Flags
Extends L<"Flags" in Mail::Box::Net::Message|Mail::Box::Net::Message/"Flags">.
=over 4
=item $obj-EB()
Inherited, see L
=item $obj-EB( [BOOLEAN] )
Inherited, see L
=item $obj-EB()
Inherited, see L
=item $obj-EB()
Inherited, see L
=item $obj-EB