r52822 - in /trunk/libemail-sender-perl: ./ debian/ lib/Email/ lib/Email/Sender/ lib/Email/Sender/Failure/ lib/Email/Sender/Manual/ lib/Email/Sender/Role/ lib/Email/Sender/Success/ lib/Email/Sender/Transport/ lib/Email/Sender/Transport/SMTP/ t/lib/Test/Email/ t/lib/Test/Email/Sender/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Mon Feb 15 17:19:06 UTC 2010
Author: jawnsy-guest
Date: Mon Feb 15 17:18:41 2010
New Revision: 52822
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52822
Log:
New upstream release
Modified:
trunk/libemail-sender-perl/Changes
trunk/libemail-sender-perl/META.json
trunk/libemail-sender-perl/META.yml
trunk/libemail-sender-perl/Makefile.PL
trunk/libemail-sender-perl/README
trunk/libemail-sender-perl/debian/changelog
trunk/libemail-sender-perl/lib/Email/Sender.pm
trunk/libemail-sender-perl/lib/Email/Sender/Failure.pm
trunk/libemail-sender-perl/lib/Email/Sender/Failure/Multi.pm
trunk/libemail-sender-perl/lib/Email/Sender/Failure/Permanent.pm
trunk/libemail-sender-perl/lib/Email/Sender/Failure/Temporary.pm
trunk/libemail-sender-perl/lib/Email/Sender/Manual.pm
trunk/libemail-sender-perl/lib/Email/Sender/Manual/QuickStart.pm
trunk/libemail-sender-perl/lib/Email/Sender/Role/CommonSending.pm
trunk/libemail-sender-perl/lib/Email/Sender/Role/HasMessage.pm
trunk/libemail-sender-perl/lib/Email/Sender/Simple.pm
trunk/libemail-sender-perl/lib/Email/Sender/Success.pm
trunk/libemail-sender-perl/lib/Email/Sender/Success/Partial.pm
trunk/libemail-sender-perl/lib/Email/Sender/Transport.pm
trunk/libemail-sender-perl/lib/Email/Sender/Transport/DevNull.pm
trunk/libemail-sender-perl/lib/Email/Sender/Transport/Failable.pm
trunk/libemail-sender-perl/lib/Email/Sender/Transport/Maildir.pm
trunk/libemail-sender-perl/lib/Email/Sender/Transport/Mbox.pm
trunk/libemail-sender-perl/lib/Email/Sender/Transport/Print.pm
trunk/libemail-sender-perl/lib/Email/Sender/Transport/SMTP.pm
trunk/libemail-sender-perl/lib/Email/Sender/Transport/SMTP/Persistent.pm
trunk/libemail-sender-perl/lib/Email/Sender/Transport/Sendmail.pm
trunk/libemail-sender-perl/lib/Email/Sender/Transport/Test.pm
trunk/libemail-sender-perl/lib/Email/Sender/Transport/Wrapper.pm
trunk/libemail-sender-perl/lib/Email/Sender/Util.pm
trunk/libemail-sender-perl/t/lib/Test/Email/SMTPRig.pm
trunk/libemail-sender-perl/t/lib/Test/Email/Sender/Util.pm
Modified: trunk/libemail-sender-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/Changes?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/Changes (original)
+++ trunk/libemail-sender-perl/Changes Mon Feb 15 17:18:41 2010
@@ -1,4 +1,7 @@
Revision history for Email-Sender
+
+0.100450 2010-02-14 17:55:48 America/New_York
+ allow timeout option to SMTP transport
0.100110 2010-01-11 10:43:57 America/New_York
Email::Sender::Failure is now a Throwable::Error
Modified: trunk/libemail-sender-perl/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/META.json?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/META.json (original)
+++ trunk/libemail-sender-perl/META.json Mon Feb 15 17:18:41 2010
@@ -1,40 +1,59 @@
{
"resources" : {
- "repository" : "http://github.com/rjbs/email-sender"
+ "repository" : "git://git.codesimply.com/Email-Sender.git"
},
+ "generated_by" : "Dist::Zilla version 1.100160",
"meta-spec" : {
"version" : 1.4,
"url" : "http://module-build.sourceforge.net/META-spec-v1.4.html"
},
- "generated_by" : "Dist::Zilla version 1.100060",
- "version" : "0.100110",
+ "version" : "0.100450",
"name" : "Email-Sender",
"author" : [
"Ricardo Signes <rjbs at cpan.org>"
],
"license" : "perl",
"requires" : {
- "Scalar::Util" : "0",
"Capture::Tiny" : "0",
- "FindBin" : "0",
- "Fcntl" : "0",
- "File::Spec" : "0",
- "Throwable::Error" : "0.100090",
- "File::Find" : "0",
+ "Sub::Exporter" : 0,
+ "Config" : 0,
"Email::Abstract" : "3",
"File::Path" : "0",
"Email::Simple" : "1.998",
"List::MoreUtils" : "0",
+ "Errno" : 0,
+ "Test::MockObject" : 0,
+ "Moose::Role" : "0",
+ "Try::Tiny" : "0",
+ "IO::File" : 0,
+ "ExtUtils::MakeMaker" : "6.11",
+ "Data::Dumper" : "0",
+ "Test::More" : "0",
+ "Email::Sender::Transport::SMTP_X" : 0,
+ "Test::Email::SMTPRig" : 0,
+ "File::Temp" : "0",
+ "Test::Email::Sender::Util" : "0",
+ "Scalar::Util" : "0",
+ "FindBin" : "0",
+ "Fcntl" : "0",
+ "File::Spec" : "0",
+ "IO::Handle" : 0,
+ "Throwable::Error" : "0.100090",
+ "Sub::Override" : 0,
+ "File::Find" : "0",
"Sys::Hostname::Long" : "0",
"Moose" : "0.70",
- "Try::Tiny" : "0",
- "ExtUtils::MakeMaker" : "6.11",
+ "Exporter" : 0,
"Carp" : "0",
+ "Sub::Exporter::Util" : 0,
"Net::SMTP" : "0",
- "File::Temp" : "0",
+ "Net::SMTP::SSL" : 0,
"File::Basename" : "0",
+ "JSON" : 0,
+ "Test::MinimumVersion" : 0,
"Cwd" : "0",
- "Email::Address" : "0"
+ "Email::Address" : "0",
+ "Sys::Hostname" : 0
},
"abstract" : "a library for sending email"
}
Modified: trunk/libemail-sender-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/META.yml?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/META.yml (original)
+++ trunk/libemail-sender-perl/META.yml Mon Feb 15 17:18:41 2010
@@ -2,7 +2,7 @@
abstract: 'a library for sending email'
author:
- 'Ricardo Signes <rjbs at cpan.org>'
-generated_by: 'Dist::Zilla version 1.100060'
+generated_by: 'Dist::Zilla version 1.100160'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -11,10 +11,15 @@
requires:
Capture::Tiny: 0
Carp: 0
+ Config: 0
Cwd: 0
+ Data::Dumper: 0
Email::Abstract: 3
Email::Address: 0
+ Email::Sender::Transport::SMTP_X: 0
Email::Simple: 1.998
+ Errno: 0
+ Exporter: 0
ExtUtils::MakeMaker: 6.11
Fcntl: 0
File::Basename: 0
@@ -23,13 +28,27 @@
File::Spec: 0
File::Temp: 0
FindBin: 0
+ IO::File: 0
+ IO::Handle: 0
+ JSON: 0
List::MoreUtils: 0
Moose: 0.70
+ Moose::Role: 0
Net::SMTP: 0
+ Net::SMTP::SSL: 0
Scalar::Util: 0
+ Sub::Exporter: 0
+ Sub::Exporter::Util: 0
+ Sub::Override: 0
+ Sys::Hostname: 0
Sys::Hostname::Long: 0
+ Test::Email::SMTPRig: 0
+ Test::Email::Sender::Util: 0
+ Test::MinimumVersion: 0
+ Test::MockObject: 0
+ Test::More: 0
Throwable::Error: 0.100090
Try::Tiny: 0
resources:
- repository: http://github.com/rjbs/email-sender
-version: 0.100110
+ repository: git://git.codesimply.com/Email-Sender.git
+version: 0.100450
Modified: trunk/libemail-sender-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/Makefile.PL?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/Makefile.PL (original)
+++ trunk/libemail-sender-perl/Makefile.PL Mon Feb 15 17:18:41 2010
@@ -8,39 +8,66 @@
-WriteMakefile(
- DISTNAME => 'Email-Sender',
- NAME => 'Email::Sender',
- AUTHOR => "Ricardo\ Signes\ \<rjbs\@cpan\.org\>",
- ABSTRACT => "a\ library\ for\ sending\ email",
- VERSION => '0.100110',
- EXE_FILES => [ ],
- (eval { ExtUtils::MakeMaker->VERSION(6.31) } ? (LICENSE => 'perl') : ()),
- PREREQ_PM => {
- "Scalar::Util" => '0',
- "Capture::Tiny" => '0',
- "FindBin" => '0',
- "Fcntl" => '0',
- "File::Spec" => '0',
- "Throwable::Error" => '0.100090',
- "File::Find" => '0',
- "Email::Abstract" => '3',
- "File::Path" => '0',
- "Email::Simple" => '1.998',
- "List::MoreUtils" => '0',
- "Sys::Hostname::Long" => '0',
- "Moose" => '0.70',
- "Try::Tiny" => '0',
- "ExtUtils::MakeMaker" => '6.11',
- "Carp" => '0',
- "Net::SMTP" => '0',
- "File::Temp" => '0',
- "File::Basename" => '0',
- "Cwd" => '0',
- "Email::Address" => '0',
- },
- test => {TESTS => 't/*.t'}
-);
+my %WriteMakefileArgs = (
+ 'test' => {
+ 'TESTS' => 't/*.t'
+ },
+ 'NAME' => 'Email::Sender',
+ 'DISTNAME' => 'Email-Sender',
+ 'AUTHOR' => 'Ricardo Signes <rjbs at cpan.org>',
+ 'ABSTRACT' => 'a library for sending email',
+ 'EXE_FILES' => [],
+ 'VERSION' => '0.100450',
+ 'LICENSE' => 'perl',
+ 'PREREQ_PM' => {
+ 'Capture::Tiny' => '0',
+ 'Sub::Exporter' => 0,
+ 'Config' => 0,
+ 'Email::Abstract' => '3',
+ 'File::Path' => '0',
+ 'Email::Simple' => '1.998',
+ 'List::MoreUtils' => '0',
+ 'Errno' => 0,
+ 'Test::MockObject' => 0,
+ 'Moose::Role' => 0,
+ 'Try::Tiny' => '0',
+ 'IO::File' => 0,
+ 'ExtUtils::MakeMaker' => '6.11',
+ 'Data::Dumper' => 0,
+ 'Test::More' => 0,
+ 'Email::Sender::Transport::SMTP_X' => 0,
+ 'Test::Email::SMTPRig' => 0,
+ 'File::Temp' => '0',
+ 'Test::Email::Sender::Util' => 0,
+ 'Scalar::Util' => '0',
+ 'FindBin' => '0',
+ 'Fcntl' => '0',
+ 'File::Spec' => '0',
+ 'IO::Handle' => 0,
+ 'Throwable::Error' => '0.100090',
+ 'Sub::Override' => 0,
+ 'File::Find' => '0',
+ 'Sys::Hostname::Long' => '0',
+ 'Moose' => '0.70',
+ 'Exporter' => 0,
+ 'Carp' => '0',
+ 'Sub::Exporter::Util' => 0,
+ 'Net::SMTP' => '0',
+ 'JSON' => 0,
+ 'File::Basename' => '0',
+ 'Net::SMTP::SSL' => 0,
+ 'Test::MinimumVersion' => 0,
+ 'Sys::Hostname' => 0,
+ 'Email::Address' => '0',
+ 'Cwd' => '0'
+ }
+ );
+
+
+delete $WriteMakefileArgs{LICENSE}
+ unless eval { ExtUtils::MakeMaker->VERSION(6.31) };
+
+WriteMakefile(%WriteMakefileArgs);
Modified: trunk/libemail-sender-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/README?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/README (original)
+++ trunk/libemail-sender-perl/README Mon Feb 15 17:18:41 2010
@@ -1,7 +1,7 @@
This archive contains the distribution Email-Sender, version
-0.100110:
+0.100450:
a library for sending email
Modified: trunk/libemail-sender-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/debian/changelog?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/debian/changelog (original)
+++ trunk/libemail-sender-perl/debian/changelog Mon Feb 15 17:18:41 2010
@@ -1,12 +1,12 @@
-libemail-sender-perl (0.100110-2) UNRELEASED; urgency=low
+libemail-sender-perl (0.100450-1) UNRELEASED; urgency=low
- TODO:
- there's a newer upstream release available which we might take just as well
+ [ Jonathan Yu ]
+ * New upstream release
[ Ivan Kohler ]
* Add dependency on libtry-tiny-perl
- -- Ivan Kohler <ivan-debian at 420.am> Sun, 14 Feb 2010 16:59:18 -0800
+ -- Jonathan Yu <jawnsy at cpan.org> Mon, 15 Feb 2010 12:36:36 -0500
libemail-sender-perl (0.100110-1) unstable; urgency=low
Modified: trunk/libemail-sender-perl/lib/Email/Sender.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/lib/Email/Sender.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender.pm Mon Feb 15 17:18:41 2010
@@ -1,5 +1,5 @@
package Email::Sender;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
use Moose::Role;
# ABSTRACT: a library for sending email
@@ -18,7 +18,7 @@
=head1 VERSION
-version 0.100110
+version 0.100450
=head1 OVERVIEW
Modified: trunk/libemail-sender-perl/lib/Email/Sender/Failure.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/lib/Email/Sender/Failure.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Failure.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Failure.pm Mon Feb 15 17:18:41 2010
@@ -1,5 +1,5 @@
package Email::Sender::Failure;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
use Moose;
extends 'Throwable::Error';
# ABSTRACT: a report of failure from an email sending transport
@@ -40,7 +40,7 @@
=head1 VERSION
-version 0.100110
+version 0.100450
=head1 ATTRIBUTES
Modified: trunk/libemail-sender-perl/lib/Email/Sender/Failure/Multi.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/lib/Email/Sender/Failure/Multi.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Failure/Multi.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Failure/Multi.pm Mon Feb 15 17:18:41 2010
@@ -1,5 +1,5 @@
package Email::Sender::Failure::Multi;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
use Moose;
extends 'Email::Sender::Failure';
# ABSTRACT: an aggregate of multiple failures
@@ -46,7 +46,7 @@
=head1 VERSION
-version 0.100110
+version 0.100450
=head1 DESCRIPTION
Modified: trunk/libemail-sender-perl/lib/Email/Sender/Failure/Permanent.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/lib/Email/Sender/Failure/Permanent.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Failure/Permanent.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Failure/Permanent.pm Mon Feb 15 17:18:41 2010
@@ -1,5 +1,5 @@
package Email::Sender::Failure::Permanent;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
use Moose;
extends 'Email::Sender::Failure';
# ABSTRACT: a permanent delivery failure
@@ -17,7 +17,7 @@
=head1 VERSION
-version 0.100110
+version 0.100450
=head1 AUTHOR
Modified: trunk/libemail-sender-perl/lib/Email/Sender/Failure/Temporary.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/lib/Email/Sender/Failure/Temporary.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Failure/Temporary.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Failure/Temporary.pm Mon Feb 15 17:18:41 2010
@@ -1,5 +1,5 @@
package Email::Sender::Failure::Temporary;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
use Moose;
extends 'Email::Sender::Failure';
# ABSTRACT: a temporary delivery failure
@@ -17,7 +17,7 @@
=head1 VERSION
-version 0.100110
+version 0.100450
=head1 AUTHOR
Modified: trunk/libemail-sender-perl/lib/Email/Sender/Manual.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/lib/Email/Sender/Manual.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Manual.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Manual.pm Mon Feb 15 17:18:41 2010
@@ -1,7 +1,7 @@
use strict;
use warnings;
package Email::Sender::Manual;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
# ABSTRACT: table of contents for the Email::Sender manual
@@ -16,7 +16,7 @@
=head1 VERSION
-version 0.100110
+version 0.100450
=head1 THE MANAUL
Modified: trunk/libemail-sender-perl/lib/Email/Sender/Manual/QuickStart.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/lib/Email/Sender/Manual/QuickStart.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Manual/QuickStart.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Manual/QuickStart.pm Mon Feb 15 17:18:41 2010
@@ -1,7 +1,7 @@
use strict;
use warnings;
package Email::Sender::Manual::QuickStart;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
# ABSTRACT: how to start using Email::Sender right now
@@ -16,7 +16,7 @@
=head1 VERSION
-version 0.100110
+version 0.100450
=head1 QUICK START
Modified: trunk/libemail-sender-perl/lib/Email/Sender/Role/CommonSending.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/lib/Email/Sender/Role/CommonSending.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Role/CommonSending.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Role/CommonSending.pm Mon Feb 15 17:18:41 2010
@@ -1,5 +1,5 @@
package Email::Sender::Role::CommonSending;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
use Moose::Role;
# ABSTRACT: the common sending tasks most Email::Sender classes will need
@@ -78,7 +78,7 @@
=head1 VERSION
-version 0.100110
+version 0.100450
=head1 DESCRIPTION
Modified: trunk/libemail-sender-perl/lib/Email/Sender/Role/HasMessage.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/lib/Email/Sender/Role/HasMessage.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Role/HasMessage.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Role/HasMessage.pm Mon Feb 15 17:18:41 2010
@@ -1,5 +1,5 @@
package Email::Sender::Role::HasMessage;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
use Moose::Role;
# ABSTRACT: an object that has a message
@@ -21,7 +21,7 @@
=head1 VERSION
-version 0.100110
+version 0.100450
=head1 ATTRIBUTES
Modified: trunk/libemail-sender-perl/lib/Email/Sender/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/lib/Email/Sender/Simple.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Simple.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Simple.pm Mon Feb 15 17:18:41 2010
@@ -1,5 +1,5 @@
package Email::Sender::Simple;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
use Moose;
with 'Email::Sender::Role::CommonSending';
# ABSTRACT: the simple interface for sending mail with Sender
@@ -165,7 +165,7 @@
=head1 VERSION
-version 0.100110
+version 0.100450
=head1 SEE INSTEAD
Modified: trunk/libemail-sender-perl/lib/Email/Sender/Success.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/lib/Email/Sender/Success.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Success.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Success.pm Mon Feb 15 17:18:41 2010
@@ -1,5 +1,5 @@
package Email::Sender::Success;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
use Moose;
# ABSTRACT: the result of successfully sending mail
@@ -17,7 +17,7 @@
=head1 VERSION
-version 0.100110
+version 0.100450
=head1 DESCRIPTION
Modified: trunk/libemail-sender-perl/lib/Email/Sender/Success/Partial.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/lib/Email/Sender/Success/Partial.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Success/Partial.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Success/Partial.pm Mon Feb 15 17:18:41 2010
@@ -1,5 +1,5 @@
package Email::Sender::Success::Partial;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
use Moose;
extends 'Email::Sender::Success';
# ABSTRACT: a report of partial success when delivering
@@ -26,7 +26,7 @@
=head1 VERSION
-version 0.100110
+version 0.100450
=head1 DESCRIPTION
Modified: trunk/libemail-sender-perl/lib/Email/Sender/Transport.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/lib/Email/Sender/Transport.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Transport.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Transport.pm Mon Feb 15 17:18:41 2010
@@ -1,5 +1,5 @@
package Email::Sender::Transport;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
use Moose::Role;
# ABSTRACT: a role for email transports
@@ -26,7 +26,7 @@
=head1 VERSION
-version 0.100110
+version 0.100450
=head1 DESCRIPTION
Modified: trunk/libemail-sender-perl/lib/Email/Sender/Transport/DevNull.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/lib/Email/Sender/Transport/DevNull.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Transport/DevNull.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Transport/DevNull.pm Mon Feb 15 17:18:41 2010
@@ -1,5 +1,5 @@
package Email::Sender::Transport::DevNull;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
use Moose;
with 'Email::Sender::Transport';
# ABSTRACT: happily throw away your mail
@@ -20,7 +20,7 @@
=head1 VERSION
-version 0.100110
+version 0.100450
=head1 DESCRIPTION
Modified: trunk/libemail-sender-perl/lib/Email/Sender/Transport/Failable.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/lib/Email/Sender/Transport/Failable.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Transport/Failable.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Transport/Failable.pm Mon Feb 15 17:18:41 2010
@@ -1,5 +1,5 @@
package Email::Sender::Transport::Failable;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
use Moose;
extends 'Email::Sender::Transport::Wrapper';
# ABSTRACT: a wrapper to makes things fail predictably
@@ -43,7 +43,7 @@
=head1 VERSION
-version 0.100110
+version 0.100450
=head1 DESCRIPTION
Modified: trunk/libemail-sender-perl/lib/Email/Sender/Transport/Maildir.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/lib/Email/Sender/Transport/Maildir.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Transport/Maildir.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Transport/Maildir.pm Mon Feb 15 17:18:41 2010
@@ -1,5 +1,5 @@
package Email::Sender::Transport::Maildir;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
use Moose;
with 'Email::Sender::Transport';
# ABSTRACT: deliver mail to a maildir on disk
@@ -125,7 +125,7 @@
=head1 VERSION
-version 0.100110
+version 0.100450
=head1 DESCRIPTION
Modified: trunk/libemail-sender-perl/lib/Email/Sender/Transport/Mbox.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/lib/Email/Sender/Transport/Mbox.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Transport/Mbox.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Transport/Mbox.pm Mon Feb 15 17:18:41 2010
@@ -1,5 +1,5 @@
package Email::Sender::Transport::Mbox;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
use Moose;
with 'Email::Sender::Transport';
# ABSTRACT: deliver mail to an mbox on disk
@@ -113,7 +113,7 @@
=head1 VERSION
-version 0.100110
+version 0.100450
=head1 DESCRIPTION
Modified: trunk/libemail-sender-perl/lib/Email/Sender/Transport/Print.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/lib/Email/Sender/Transport/Print.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Transport/Print.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Transport/Print.pm Mon Feb 15 17:18:41 2010
@@ -1,5 +1,5 @@
package Email::Sender::Transport::Print;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
use Moose;
with 'Email::Sender::Transport';
# ABSTRACT: print email to a filehandle (like stdout)
@@ -43,7 +43,7 @@
=head1 VERSION
-version 0.100110
+version 0.100450
=head1 DESCRIPTION
Modified: trunk/libemail-sender-perl/lib/Email/Sender/Transport/SMTP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/lib/Email/Sender/Transport/SMTP.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Transport/SMTP.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Transport/SMTP.pm Mon Feb 15 17:18:41 2010
@@ -1,5 +1,5 @@
package Email::Sender::Transport::SMTP;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
use Moose;
with 'Email::Sender::Transport' => { excludes => 'allow_partial_success' };
# ABSTRACT: send email over SMTP
@@ -18,6 +18,8 @@
default => sub { return $_[0]->ssl ? 465 : 25; },
);
+has timeout => (is => 'ro', isa => 'Int', default => 120);
+
has sasl_username => (is => 'ro', isa => 'Str');
has sasl_password => (is => 'ro', isa => 'Str');
@@ -54,25 +56,32 @@
require Net::SMTP;
}
- my $smtp = $class->new(
+ my $smtp = $class->new( $self->_net_smtp_args );
+
+ $self->_throw("unable to establish SMTP connection") unless $smtp;
+
+ if ($self->sasl_username) {
+ $self->_throw("sasl_username but no sasl_password")
+ unless defined $self->sasl_password;
+
+ $self->_throw('failed AUTH', $smtp)
+ unless $smtp->auth($self->sasl_username, $self->sasl_password)
+ }
+
+ return $smtp;
+}
+
+sub _net_smtp_args {
+ my ($self) = @_;
+
+ return (
$self->host,
- Port => $self->port,
+ Port => $self->port,
+ Timeout => $self->timeout,
$self->helo ? (Hello => $self->helo) : (),
$self->localaddr ? (LocalAddr => $self->localaddr) : (),
$self->localport ? (LocalPort => $self->localport) : (),
);
-
- $self->_throw("unable to establish SMTP connection") unless $smtp;
-
- if ($self->sasl_username) {
- $self->_throw("sasl_username but no sasl_password")
- unless defined $self->sasl_password;
-
- $self->_throw('failed AUTH', $smtp)
- unless $smtp->auth($self->sasl_username, $self->sasl_password)
- }
-
- return $smtp;
}
sub _throw {
@@ -194,7 +203,7 @@
=head1 VERSION
-version 0.100110
+version 0.100450
=head1 DESCRIPTION
@@ -209,25 +218,27 @@
The following attributes may be passed to the constructor:
-=over
-
-=item host - the name of the host to connect to; defaults to localhost
-
-=item ssl - if true, connect via SSL; defaults to false
-
-=item port - port to connect to; defaults to 25 for non-SSL, 465 for SSL
-
-=item sasl_username - the username to use for auth; optional
-
-=item sasl_password - the password to use for auth; must be provided if username is provided
-
-=item allow_partial_success - if true, will send data even if some recipients were rejected
-
-=item helo - what to say when saying HELO; no default
-
-=item localaddr - local address from which to connect
-
-=item localpart - local port from which to connect
+=over 4
+
+=item C<host>: the name of the host to connect to; defaults to C<localhost>
+
+=item C<ssl>: if true, connect via SSL; defaults to false
+
+=item C<port>: port to connect to; defaults to 25 for non-SSL, 465 for SSL
+
+=item C<timeout>: maximum time in secs to wait for server; default is 120
+
+=item C<sasl_username>: the username to use for auth; optional
+
+=item C<sasl_password>: the password to use for auth; required if C<username> is provided
+
+=item C<allow_partial_success>: if true, will send data even if some recipients were rejected; defaults to false
+
+=item C<helo>: what to say when saying HELO; no default
+
+=item C<localaddr>: local address from which to connect
+
+=item C<localport>: local port from which to connect
=back
Modified: trunk/libemail-sender-perl/lib/Email/Sender/Transport/SMTP/Persistent.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/lib/Email/Sender/Transport/SMTP/Persistent.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Transport/SMTP/Persistent.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Transport/SMTP/Persistent.pm Mon Feb 15 17:18:41 2010
@@ -1,5 +1,5 @@
package Email::Sender::Transport::SMTP::Persistent;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
use Moose;
extends 'Email::Sender::Transport::SMTP';
# ABSTRACT: an SMTP client that stays online
@@ -54,7 +54,7 @@
=head1 VERSION
-version 0.100110
+version 0.100450
=head1 DESCRIPTION
Modified: trunk/libemail-sender-perl/lib/Email/Sender/Transport/Sendmail.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/lib/Email/Sender/Transport/Sendmail.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Transport/Sendmail.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Transport/Sendmail.pm Mon Feb 15 17:18:41 2010
@@ -1,5 +1,5 @@
package Email::Sender::Transport::Sendmail;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
use Moose;
with 'Email::Sender::Transport';
# ABSTRACT: send mail via sendmail(1)
@@ -93,7 +93,7 @@
=head1 VERSION
-version 0.100110
+version 0.100450
=head2 DESCRIPTION
Modified: trunk/libemail-sender-perl/lib/Email/Sender/Transport/Test.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/lib/Email/Sender/Transport/Test.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Transport/Test.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Transport/Test.pm Mon Feb 15 17:18:41 2010
@@ -1,5 +1,5 @@
package Email::Sender::Transport::Test;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
use Moose;
with 'Email::Sender::Transport' => { excludes => 'allow_partial_success' };
# ABSTRACT: deliver mail in memory for testing
@@ -90,7 +90,7 @@
=head1 VERSION
-version 0.100110
+version 0.100450
=head1 DESCRIPTION
Modified: trunk/libemail-sender-perl/lib/Email/Sender/Transport/Wrapper.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/lib/Email/Sender/Transport/Wrapper.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Transport/Wrapper.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Transport/Wrapper.pm Mon Feb 15 17:18:41 2010
@@ -1,5 +1,5 @@
package Email::Sender::Transport::Wrapper;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
use Moose;
with 'Email::Sender::Transport';
# ABSTRACT: a mailer to wrap a mailer for mailing mail
@@ -30,7 +30,7 @@
=head1 VERSION
-version 0.100110
+version 0.100450
=head1 DESCRIPTION
Modified: trunk/libemail-sender-perl/lib/Email/Sender/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/lib/Email/Sender/Util.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Util.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Util.pm Mon Feb 15 17:18:41 2010
@@ -1,7 +1,7 @@
use strict;
use warnings;
package Email::Sender::Util;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
# ABSTRACT: random stuff that makes Email::Sender go
use Email::Address;
@@ -64,7 +64,7 @@
=head1 VERSION
-version 0.100110
+version 0.100450
=head1 AUTHOR
Modified: trunk/libemail-sender-perl/t/lib/Test/Email/SMTPRig.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/t/lib/Test/Email/SMTPRig.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/t/lib/Test/Email/SMTPRig.pm (original)
+++ trunk/libemail-sender-perl/t/lib/Test/Email/SMTPRig.pm Mon Feb 15 17:18:41 2010
@@ -1,5 +1,5 @@
package Test::Email::SMTPRig;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
use Moose;
has 'smtp_host' => (is => 'ro', required => 1);
Modified: trunk/libemail-sender-perl/t/lib/Test/Email/Sender/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/t/lib/Test/Email/Sender/Util.pm?rev=52822&op=diff
==============================================================================
--- trunk/libemail-sender-perl/t/lib/Test/Email/Sender/Util.pm (original)
+++ trunk/libemail-sender-perl/t/lib/Test/Email/Sender/Util.pm Mon Feb 15 17:18:41 2010
@@ -1,7 +1,7 @@
use strict;
use warnings;
package Test::Email::Sender::Util;
-our $VERSION = '0.100110';
+our $VERSION = '0.100450';
use Exporter;
BEGIN { our @ISA = qw(Exporter) }
More information about the Pkg-perl-cvs-commits
mailing list