r46911 - 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/ t/lib/Test/Email/ t/lib/Test/Email/Sender/ xt/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun Nov 8 16:00:31 UTC 2009
Author: jawnsy-guest
Date: Sun Nov 8 16:00:19 2009
New Revision: 46911
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=46911
Log:
integrate new upstream release
Added:
trunk/libemail-sender-perl/lib/Email/Sender/Role/HasMessage.pm
- copied unchanged from r46910, branches/upstream/libemail-sender-perl/current/lib/Email/Sender/Role/HasMessage.pm
trunk/libemail-sender-perl/smtp-test
- copied unchanged from r46910, branches/upstream/libemail-sender-perl/current/smtp-test
trunk/libemail-sender-perl/xt/
- copied from r46910, branches/upstream/libemail-sender-perl/current/xt/
Removed:
trunk/libemail-sender-perl/MANIFEST.SKIP
Modified:
trunk/libemail-sender-perl/Changes
trunk/libemail-sender-perl/MANIFEST
trunk/libemail-sender-perl/META.json
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/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
trunk/libemail-sender-perl/t/print.t
trunk/libemail-sender-perl/t/test.t
trunk/libemail-sender-perl/t/util-fail.t
Modified: trunk/libemail-sender-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/Changes?rev=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/Changes (original)
+++ trunk/libemail-sender-perl/Changes Sun Nov 8 16:00:19 2009
@@ -1,4 +1,9 @@
Revision history for Email-Sender
+
+
+0.093110 2009-11-07
+ allow uppercase env vars to set transport attributes (charsbar)
+ add "message" attribute to successes returned by SMTP transports
0.092840 2009-10-10
fix packaging error
Modified: trunk/libemail-sender-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/MANIFEST?rev=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/MANIFEST (original)
+++ trunk/libemail-sender-perl/MANIFEST Sun Nov 8 16:00:19 2009
@@ -1,7 +1,6 @@
Changes
LICENSE
MANIFEST
-MANIFEST.SKIP
META.json
Makefile.PL
README
@@ -14,6 +13,7 @@
lib/Email/Sender/Manual.pm
lib/Email/Sender/Manual/QuickStart.pm
lib/Email/Sender/Role/CommonSending.pm
+lib/Email/Sender/Role/HasMessage.pm
lib/Email/Sender/Simple.pm
lib/Email/Sender/Success.pm
lib/Email/Sender/Success/Partial.pm
@@ -29,6 +29,7 @@
lib/Email/Sender/Transport/Test.pm
lib/Email/Sender/Transport/Wrapper.pm
lib/Email/Sender/Util.pm
+smtp-test
t/00-load.t
t/a-perl-minver.t
t/devnull.t
@@ -54,4 +55,5 @@
util/executable
util/not-executable
util/sendmail
-util/sendmail.bat
+util/sendmail.bat
+xt/manual/smtp.t
Modified: trunk/libemail-sender-perl/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/META.json?rev=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/META.json (original)
+++ trunk/libemail-sender-perl/META.json Sun Nov 8 16:00:19 2009
@@ -1,13 +1,13 @@
{
"resources" : {
- "repository" : "http://github.com/rjbs/email-sender/tree"
+ "repository" : "http://github.com/rjbs/email-sender"
},
"meta-spec" : {
"version" : 1.4,
"url" : "http://module-build.sourceforge.net/META-spec-v1.4.html"
},
- "generated_by" : "Dist::Zilla version 1.092680",
- "version" : "0.092840",
+ "generated_by" : "Dist::Zilla version 1.092990",
+ "version" : "0.093110",
"name" : "Email-Sender",
"author" : [
"Ricardo Signes <rjbs at cpan.org>"
@@ -35,3 +35,4 @@
},
"abstract" : "a library for sending email"
}
+
Modified: trunk/libemail-sender-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/Makefile.PL?rev=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/Makefile.PL (original)
+++ trunk/libemail-sender-perl/Makefile.PL Sun Nov 8 16:00:19 2009
@@ -7,9 +7,9 @@
WriteMakefile(
DISTNAME => 'Email-Sender',
NAME => 'Email::Sender',
- AUTHOR => 'Ricardo\ Signes\ \<rjbs\@cpan\.org\>',
- ABSTRACT => 'a\ library\ for\ sending\ email',
- VERSION => '0.092840',
+ AUTHOR => "Ricardo\ Signes\ \<rjbs\@cpan\.org\>",
+ ABSTRACT => "a\ library\ for\ sending\ email",
+ VERSION => '0.093110',
EXE_FILES => [ qw() ],
(eval { ExtUtils::MakeMaker->VERSION(6.31) } ? (LICENSE => 'perl') : ()),
PREREQ_PM => {
Modified: trunk/libemail-sender-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/README?rev=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/README (original)
+++ trunk/libemail-sender-perl/README Sun Nov 8 16:00:19 2009
@@ -1,7 +1,7 @@
This archive contains the distribution Email-Sender, version
-0.092840:
+0.093110:
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=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/debian/changelog (original)
+++ trunk/libemail-sender-perl/debian/changelog Sun Nov 8 16:00:19 2009
@@ -1,4 +1,4 @@
-libemail-sender-perl (0.092840-1) UNRELEASED; urgency=low
+libemail-sender-perl (0.093110-1) UNRELEASED; urgency=low
IGNORE-VERSION: 0.092840-1
More minor cleanups, but nothing to upgrade for.
@@ -15,7 +15,7 @@
perl (>= 5.6.0-{12,16}) with an unversioned dependency on perl (as
permitted by Debian Policy 3.8.3).
- -- Jonathan Yu <jawnsy at cpan.org> Sun, 11 Oct 2009 13:26:27 -0400
+ -- Jonathan Yu <jawnsy at cpan.org> Sun, 08 Nov 2009 07:28:49 -0500
libemail-sender-perl (0.091870-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=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender.pm Sun Nov 8 16:00:19 2009
@@ -1,5 +1,5 @@
package Email::Sender;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
use Moose::Role;
@@ -12,7 +12,6 @@
1;
__END__
-
=pod
=head1 NAME
@@ -21,7 +20,7 @@
=head1 VERSION
-version 0.092840
+version 0.093110
=head1 OVERVIEW
@@ -56,6 +55,5 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
+=cut
-
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=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Failure.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Failure.pm Sun Nov 8 16:00:19 2009
@@ -1,17 +1,12 @@
package Email::Sender::Failure;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
use Moose;
# ABSTRACT: a report of failure from an email sending transport
+with 'Email::Sender::Role::HasMessage';
use overload '""' => sub { $_[0]->message }, fallback => 1;
-
-
-has message => (
- is => 'ro',
- required => 1,
-);
has code => (
@@ -60,7 +55,6 @@
1;
__END__
-
=pod
=head1 NAME
@@ -69,19 +63,7 @@
=head1 VERSION
-version 0.092840
-
-=head1 SEE ALSO
-
-=over
-
-=item * L<Email::Sender::Permanent>
-
-=item * L<Email::Sender::Temporary>
-
-=item * L<Email::Sender::Multi>
-
-=back
+version 0.093110
=head1 ATTRIBUTES
@@ -112,6 +94,18 @@
Instead of a hashref of args, you can pass a single string argument which will
be used as the C<message> of the new failure.
+=head1 SEE ALSO
+
+=over
+
+=item * L<Email::Sender::Permanent>
+
+=item * L<Email::Sender::Temporary>
+
+=item * L<Email::Sender::Multi>
+
+=back
+
=head1 AUTHOR
Ricardo Signes <rjbs at cpan.org>
@@ -123,6 +117,5 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
+=cut
-
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=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Failure/Multi.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Failure/Multi.pm Sun Nov 8 16:00:19 2009
@@ -1,5 +1,5 @@
package Email::Sender::Failure::Multi;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
use Moose;
@@ -40,7 +40,6 @@
1;
__END__
-
=pod
=head1 NAME
@@ -49,7 +48,7 @@
=head1 VERSION
-version 0.092840
+version 0.093110
=head1 DESCRIPTION
@@ -81,6 +80,5 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
+=cut
-
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=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Failure/Permanent.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Failure/Permanent.pm Sun Nov 8 16:00:19 2009
@@ -1,5 +1,5 @@
package Email::Sender::Failure::Permanent;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
use Moose;
@@ -11,7 +11,6 @@
1;
__END__
-
=pod
=head1 NAME
@@ -20,7 +19,7 @@
=head1 VERSION
-version 0.092840
+version 0.093110
=head1 AUTHOR
@@ -33,6 +32,5 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
+=cut
-
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=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Failure/Temporary.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Failure/Temporary.pm Sun Nov 8 16:00:19 2009
@@ -1,5 +1,5 @@
package Email::Sender::Failure::Temporary;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
use Moose;
@@ -11,7 +11,6 @@
1;
__END__
-
=pod
=head1 NAME
@@ -20,7 +19,7 @@
=head1 VERSION
-version 0.092840
+version 0.093110
=head1 AUTHOR
@@ -33,6 +32,5 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
+=cut
-
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=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Manual.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Manual.pm Sun Nov 8 16:00:19 2009
@@ -1,7 +1,7 @@
use strict;
use warnings;
package Email::Sender::Manual;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
# ABSTRACT: table of contents for the Email::Sender manual
@@ -10,7 +10,6 @@
1;
__END__
-
=pod
=head1 NAME
@@ -19,7 +18,7 @@
=head1 VERSION
-version 0.092840
+version 0.093110
=head1 THE MANAUL
@@ -37,6 +36,5 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
+=cut
-
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=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Manual/QuickStart.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Manual/QuickStart.pm Sun Nov 8 16:00:19 2009
@@ -1,7 +1,7 @@
use strict;
use warnings;
package Email::Sender::Manual::QuickStart;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
# ABSTRACT: how to start using Email::Sender right now
@@ -10,7 +10,6 @@
1;
__END__
-
=pod
=head1 NAME
@@ -19,7 +18,7 @@
=head1 VERSION
-version 0.092840
+version 0.093110
=head1 QUICK START
@@ -147,7 +146,10 @@
It is important to note that if you have set the default transport by using the
environment, I<< no subsequent C<transport> args to C<sendmail> will be
respected >>. If you set the default transport via the environment, that's it.
-Everything will use that transport.
+Everything will use that transport. (Also, note that while we gave the host and
+port arguments above in lower case, the casing of arguments in the environment
+is flattened to support systems where environment variables are of a fixed
+case. So, C<EMAIL_SENDER_TRANSPORT_PORT> woudl also work.
This is extremely valuable behavior, as it allows you to audit every message
that would be sent by a program by running something like this:
@@ -204,6 +206,5 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
-
-
+=cut
+
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=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Role/CommonSending.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Role/CommonSending.pm Sun Nov 8 16:00:19 2009
@@ -1,5 +1,5 @@
package Email::Sender::Role::CommonSending;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
use Moose::Role;
@@ -72,7 +72,6 @@
1;
__END__
-
=pod
=head1 NAME
@@ -81,7 +80,7 @@
=head1 VERSION
-version 0.092840
+version 0.093110
=head1 DESCRIPTION
@@ -135,6 +134,5 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
+=cut
-
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=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Simple.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Simple.pm Sun Nov 8 16:00:19 2009
@@ -1,5 +1,5 @@
package Email::Sender::Simple;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
use Moose;
@@ -44,7 +44,7 @@
my %arg;
for my $key (grep { /^EMAIL_SENDER_TRANSPORT_\w+/ } keys %ENV) {
(my $new_key = $key) =~ s/^EMAIL_SENDER_TRANSPORT_//;
- $arg{$new_key} = $ENV{$key};
+ $arg{lc $new_key} = $ENV{$key};
}
$DEFAULT_FROM_ENV = 1;
@@ -158,7 +158,6 @@
"220 OK";
__END__
-
=pod
=head1 NAME
@@ -167,7 +166,7 @@
=head1 VERSION
-version 0.092840
+version 0.093110
=head1 SEE INSTEAD
@@ -185,6 +184,5 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
+=cut
-
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=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Success.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Success.pm Sun Nov 8 16:00:19 2009
@@ -1,5 +1,5 @@
package Email::Sender::Success;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
use Moose;
@@ -11,7 +11,6 @@
1;
__END__
-
=pod
=head1 NAME
@@ -20,7 +19,7 @@
=head1 VERSION
-version 0.092840
+version 0.093110
=head1 DESCRIPTION
@@ -38,6 +37,5 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
+=cut
-
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=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Success/Partial.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Success/Partial.pm Sun Nov 8 16:00:19 2009
@@ -1,5 +1,5 @@
package Email::Sender::Success::Partial;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
use Moose;
@@ -20,7 +20,6 @@
1;
__END__
-
=pod
=head1 NAME
@@ -29,7 +28,7 @@
=head1 VERSION
-version 0.092840
+version 0.093110
=head1 DESCRIPTION
@@ -48,6 +47,5 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
+=cut
-
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=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Transport.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Transport.pm Sun Nov 8 16:00:19 2009
@@ -1,5 +1,5 @@
package Email::Sender::Transport;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
use Moose::Role;
@@ -20,7 +20,6 @@
1;
__END__
-
=pod
=head1 NAME
@@ -29,7 +28,7 @@
=head1 VERSION
-version 0.092840
+version 0.093110
=head1 DESCRIPTION
@@ -64,6 +63,5 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
+=cut
-
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=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Transport/DevNull.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Transport/DevNull.pm Sun Nov 8 16:00:19 2009
@@ -1,5 +1,5 @@
package Email::Sender::Transport::DevNull;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
use Moose;
@@ -14,7 +14,6 @@
1;
__END__
-
=pod
=head1 NAME
@@ -23,7 +22,7 @@
=head1 VERSION
-version 0.092840
+version 0.093110
=head1 DESCRIPTION
@@ -41,6 +40,5 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
+=cut
-
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=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Transport/Failable.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Transport/Failable.pm Sun Nov 8 16:00:19 2009
@@ -1,5 +1,5 @@
package Email::Sender::Transport::Failable;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
use Moose;
@@ -37,7 +37,6 @@
1;
__END__
-
=pod
=head1 NAME
@@ -46,7 +45,7 @@
=head1 VERSION
-version 0.092840
+version 0.093110
=head1 DESCRIPTION
@@ -74,6 +73,5 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
+=cut
-
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=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Transport/Maildir.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Transport/Maildir.pm Sun Nov 8 16:00:19 2009
@@ -1,5 +1,5 @@
package Email::Sender::Transport::Maildir;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
use Moose;
@@ -119,7 +119,6 @@
1;
__END__
-
=pod
=head1 NAME
@@ -128,7 +127,7 @@
=head1 VERSION
-version 0.092840
+version 0.093110
=head1 DESCRIPTION
@@ -155,6 +154,5 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
+=cut
-
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=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Transport/Mbox.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Transport/Mbox.pm Sun Nov 8 16:00:19 2009
@@ -1,5 +1,5 @@
package Email::Sender::Transport::Mbox;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
use Moose;
@@ -107,7 +107,6 @@
1;
__END__
-
=pod
=head1 NAME
@@ -116,7 +115,7 @@
=head1 VERSION
-version 0.092840
+version 0.093110
=head1 DESCRIPTION
@@ -137,6 +136,5 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
+=cut
-
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=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Transport/Print.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Transport/Print.pm Sun Nov 8 16:00:19 2009
@@ -1,5 +1,5 @@
package Email::Sender::Transport::Print;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
use Moose;
@@ -37,7 +37,6 @@
1;
__END__
-
=pod
=head1 NAME
@@ -46,7 +45,7 @@
=head1 VERSION
-version 0.092840
+version 0.093110
=head1 DESCRIPTION
@@ -65,6 +64,5 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
+=cut
-
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=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Transport/SMTP.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Transport/SMTP.pm Sun Nov 8 16:00:19 2009
@@ -1,5 +1,5 @@
package Email::Sender::Transport::SMTP;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
use Moose;
@@ -97,7 +97,7 @@
my @failures;
my @ok_rcpts;
-
+
for my $addr (@to) {
if ($smtp->to(_quoteaddr($addr))) {
push @ok_rcpts, $addr;
@@ -140,11 +140,14 @@
$smtp->datasend($email->as_string) or $FAULT->("error at during DATA");
$smtp->dataend or $FAULT->("error at after DATA");
+ my $message = $smtp->message;
+
$self->_message_complete($smtp);
- # XXX: We must report partial success (failures) if applicable.
- return $self->success unless @failures;
- return Email::Sender::Success::Partial->new({
+ # We must report partial success (failures) if applicable.
+ return $self->success({ message => $message }) unless @failures;
+ return $self->partial_success({
+ message => $message,
failure => Email::Sender::Failure::Multi->new({
message => 'some recipients were rejected during RCPT',
failures => \@failures
@@ -152,6 +155,31 @@
});
}
+my %SUCCESS_CLASS;
+BEGIN {
+ $SUCCESS_CLASS{FULL} = Moose::Meta::Class->create_anon_class(
+ superclasses => [ 'Email::Sender::Success' ],
+ roles => [ 'Email::Sender::Role::HasMessage' ],
+ cache => 1,
+ );
+ $SUCCESS_CLASS{PARTIAL} = Moose::Meta::Class->create_anon_class(
+ superclasses => [ 'Email::Sender::Success::Partial' ],
+ roles => [ 'Email::Sender::Role::HasMessage' ],
+ cache => 1,
+ );
+}
+
+sub success {
+ my $self = shift;
+ my $success = $SUCCESS_CLASS{FULL}->name->new(@_);
+}
+
+sub partial_success {
+ my ($self, @args) = @_;
+ my $obj = $SUCCESS_CLASS{PARTIAL}->name->new(@args);
+ return $obj;
+}
+
sub _message_complete { $_[1]->quit; }
@@ -160,7 +188,6 @@
1;
__END__
-
=pod
=head1 NAME
@@ -169,7 +196,7 @@
=head1 VERSION
-version 0.092840
+version 0.093110
=head1 DESCRIPTION
@@ -184,7 +211,7 @@
The following attributes may be passed to the constructor:
-=over
+=over
=item host - the name of the host to connect to; defaults to localhost
@@ -204,7 +231,7 @@
=item localpart - local port from which to connect
-=back
+=back
=head1 PARTIAL SUCCESS
@@ -223,6 +250,5 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
-
-
+=cut
+
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=46911&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 Sun Nov 8 16:00:19 2009
@@ -1,5 +1,5 @@
package Email::Sender::Transport::SMTP::Persistent;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
use Moose;
@@ -48,7 +48,6 @@
1;
__END__
-
=pod
=head1 NAME
@@ -57,7 +56,7 @@
=head1 VERSION
-version 0.092840
+version 0.093110
=head1 DESCRIPTION
@@ -84,6 +83,5 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
+=cut
-
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=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Transport/Sendmail.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Transport/Sendmail.pm Sun Nov 8 16:00:19 2009
@@ -1,5 +1,5 @@
package Email::Sender::Transport::Sendmail;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
use Moose;
@@ -87,7 +87,6 @@
1;
__END__
-
=pod
=head1 NAME
@@ -96,7 +95,7 @@
=head1 VERSION
-version 0.092840
+version 0.093110
=head2 DESCRIPTION
@@ -120,6 +119,5 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
+=cut
-
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=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Transport/Test.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Transport/Test.pm Sun Nov 8 16:00:19 2009
@@ -1,5 +1,5 @@
package Email::Sender::Transport::Test;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
use Moose;
@@ -84,7 +84,6 @@
1;
__END__
-
=pod
=head1 NAME
@@ -93,12 +92,16 @@
=head1 VERSION
-version 0.092840
+version 0.093110
=head1 DESCRIPTION
This transport is meant for testing email deliveries in memory. It will store
a record of any delivery made so that they can be inspected afterward.
+
+=head1 ATTRIBUTES
+
+=head2 deliveries
=for Pod::Coverage recipient_failure delivery_failure
@@ -134,10 +137,6 @@
Both successful and failed deliveries are stored.
-=head1 ATTRIBUTES
-
-=head2 deliveries
-
=head1 AUTHOR
Ricardo Signes <rjbs at cpan.org>
@@ -149,6 +148,5 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
+=cut
-
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=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Transport/Wrapper.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Transport/Wrapper.pm Sun Nov 8 16:00:19 2009
@@ -1,5 +1,5 @@
package Email::Sender::Transport::Wrapper;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
use Moose;
@@ -24,7 +24,6 @@
1;
__END__
-
=pod
=head1 NAME
@@ -33,7 +32,7 @@
=head1 VERSION
-version 0.092840
+version 0.093110
=head1 DESCRIPTION
@@ -52,6 +51,5 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
+=cut
-
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=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/lib/Email/Sender/Util.pm (original)
+++ trunk/libemail-sender-perl/lib/Email/Sender/Util.pm Sun Nov 8 16:00:19 2009
@@ -1,7 +1,7 @@
use strict;
use warnings;
package Email::Sender::Util;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
# ABSTRACT: random stuff that makes Email::Sender go
@@ -58,7 +58,6 @@
1;
__END__
-
=pod
=head1 NAME
@@ -67,7 +66,7 @@
=head1 VERSION
-version 0.092840
+version 0.093110
=head1 AUTHOR
@@ -80,6 +79,5 @@
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
-=cut
+=cut
-
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=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/t/lib/Test/Email/SMTPRig.pm (original)
+++ trunk/libemail-sender-perl/t/lib/Test/Email/SMTPRig.pm Sun Nov 8 16:00:19 2009
@@ -1,5 +1,5 @@
package Test::Email::SMTPRig;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
use Moose;
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=46911&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 Sun Nov 8 16:00:19 2009
@@ -1,7 +1,7 @@
use strict;
use warnings;
package Test::Email::Sender::Util;
-our $VERSION = '0.092840';
+our $VERSION = '0.093110';
use Exporter;
Modified: trunk/libemail-sender-perl/t/print.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/t/print.t?rev=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/t/print.t (original)
+++ trunk/libemail-sender-perl/t/print.t Sun Nov 8 16:00:19 2009
@@ -8,9 +8,6 @@
{
package CP;
-our $VERSION = '0.092840';
-
-
sub new { bless { str => '' } => $_[0] }
sub print { shift->{str} .= join '', @_ }
sub printf { shift->{str} .= sprintf shift, @_ }
Modified: trunk/libemail-sender-perl/t/test.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/t/test.t?rev=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/t/test.t (original)
+++ trunk/libemail-sender-perl/t/test.t Sun Nov 8 16:00:19 2009
@@ -69,9 +69,6 @@
{
package Email::Sender::Transport::TestFail;
-our $VERSION = '0.092840';
-
-
use Moose;
extends 'Email::Sender::Transport::Test';
Modified: trunk/libemail-sender-perl/t/util-fail.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-sender-perl/t/util-fail.t?rev=46911&op=diff
==============================================================================
--- trunk/libemail-sender-perl/t/util-fail.t (original)
+++ trunk/libemail-sender-perl/t/util-fail.t Sun Nov 8 16:00:19 2009
@@ -7,9 +7,6 @@
{
package FakeSMTP;
-our $VERSION = '0.092840';
-
-
use Moose;
has code => (is => 'rw');
More information about the Pkg-perl-cvs-commits
mailing list