r76116 - in /branches/upstream/libemail-sender-transport-smtp-tls-perl/current: Changes MANIFEST META.json META.yml Makefile.PL README dist.ini lib/Email/Sender/Transport/SMTP/TLS.pm t/00-compile.t t/00-load.t t/ok.t
fabreg-guest at users.alioth.debian.org
fabreg-guest at users.alioth.debian.org
Sun Jun 19 12:30:08 UTC 2011
Author: fabreg-guest
Date: Sun Jun 19 12:30:04 2011
New Revision: 76116
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=76116
Log:
[svn-upgrade] new version libemail-sender-transport-smtp-tls-perl (0.10)
Added:
branches/upstream/libemail-sender-transport-smtp-tls-perl/current/META.json
branches/upstream/libemail-sender-transport-smtp-tls-perl/current/t/00-compile.t
branches/upstream/libemail-sender-transport-smtp-tls-perl/current/t/ok.t
Removed:
branches/upstream/libemail-sender-transport-smtp-tls-perl/current/t/00-load.t
Modified:
branches/upstream/libemail-sender-transport-smtp-tls-perl/current/Changes
branches/upstream/libemail-sender-transport-smtp-tls-perl/current/MANIFEST
branches/upstream/libemail-sender-transport-smtp-tls-perl/current/META.yml
branches/upstream/libemail-sender-transport-smtp-tls-perl/current/Makefile.PL
branches/upstream/libemail-sender-transport-smtp-tls-perl/current/README
branches/upstream/libemail-sender-transport-smtp-tls-perl/current/dist.ini
branches/upstream/libemail-sender-transport-smtp-tls-perl/current/lib/Email/Sender/Transport/SMTP/TLS.pm
Modified: branches/upstream/libemail-sender-transport-smtp-tls-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-sender-transport-smtp-tls-perl/current/Changes?rev=76116&op=diff
==============================================================================
--- branches/upstream/libemail-sender-transport-smtp-tls-perl/current/Changes (original)
+++ branches/upstream/libemail-sender-transport-smtp-tls-perl/current/Changes Sun Jun 19 12:30:04 2011
@@ -1,4 +1,7 @@
Revision history for Email-Sender-Transport-SMTP-TLS
+
+0.10 2011.06.18
+ trap errors when send email
0.09 2011.01.02
code fixes
Modified: branches/upstream/libemail-sender-transport-smtp-tls-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-sender-transport-smtp-tls-perl/current/MANIFEST?rev=76116&op=diff
==============================================================================
--- branches/upstream/libemail-sender-transport-smtp-tls-perl/current/MANIFEST (original)
+++ branches/upstream/libemail-sender-transport-smtp-tls-perl/current/MANIFEST Sun Jun 19 12:30:04 2011
@@ -1,11 +1,13 @@
Changes
LICENSE
MANIFEST
+META.json
META.yml
Makefile.PL
README
dist.ini
lib/Email/Sender/Transport/SMTP/TLS.pm
-t/00-load.t
+t/00-compile.t
+t/ok.t
t/release-pod-coverage.t
t/release-pod-syntax.t
Added: branches/upstream/libemail-sender-transport-smtp-tls-perl/current/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-sender-transport-smtp-tls-perl/current/META.json?rev=76116&op=file
==============================================================================
--- branches/upstream/libemail-sender-transport-smtp-tls-perl/current/META.json (added)
+++ branches/upstream/libemail-sender-transport-smtp-tls-perl/current/META.json Sun Jun 19 12:30:04 2011
@@ -1,0 +1,39 @@
+{
+ "abstract" : "Email::Sender with L<Net::SMTP::TLS> (Eg. Gmail)",
+ "author" : [
+ "Fayland Lam <fayland at gmail.com>"
+ ],
+ "dynamic_config" : 0,
+ "generated_by" : "Dist::Zilla version 4.200004, CPAN::Meta::Converter version 2.102400",
+ "license" : [
+ "perl_5"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
+ "version" : "2"
+ },
+ "name" : "Email-Sender-Transport-SMTP-TLS",
+ "prereqs" : {
+ "configure" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "6.31"
+ }
+ },
+ "runtime" : {
+ "requires" : {
+ "Email::Sender" : "0.110001",
+ "Net::SMTP::TLS::ButMaintained" : "0.17"
+ }
+ }
+ },
+ "release_status" : "stable",
+ "resources" : {
+ "repository" : {
+ "type" : "git",
+ "url" : "git://github.com/fayland/email-sender-transport-smtp-tls.git",
+ "web" : "http://github.com/fayland/email-sender-transport-smtp-tls"
+ }
+ },
+ "version" : "0.10"
+}
+
Modified: branches/upstream/libemail-sender-transport-smtp-tls-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-sender-transport-smtp-tls-perl/current/META.yml?rev=76116&op=diff
==============================================================================
--- branches/upstream/libemail-sender-transport-smtp-tls-perl/current/META.yml (original)
+++ branches/upstream/libemail-sender-transport-smtp-tls-perl/current/META.yml Sun Jun 19 12:30:04 2011
@@ -6,15 +6,15 @@
configure_requires:
ExtUtils::MakeMaker: 6.31
dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.102342, CPAN::Meta::Converter version 2.102400'
+generated_by: 'Dist::Zilla version 4.200004, CPAN::Meta::Converter version 2.102400'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
name: Email-Sender-Transport-SMTP-TLS
requires:
- Email::Sender: 0.102370
- Net::SMTP::TLS::ButMaintained: 0.13
+ Email::Sender: 0.110001
+ Net::SMTP::TLS::ButMaintained: 0.17
resources:
- repository: http://github.com/fayland/email-sender-transport-smtp-tls
-version: 0.09
+ repository: git://github.com/fayland/email-sender-transport-smtp-tls.git
+version: 0.10
Modified: branches/upstream/libemail-sender-transport-smtp-tls-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-sender-transport-smtp-tls-perl/current/Makefile.PL?rev=76116&op=diff
==============================================================================
--- branches/upstream/libemail-sender-transport-smtp-tls-perl/current/Makefile.PL (original)
+++ branches/upstream/libemail-sender-transport-smtp-tls-perl/current/Makefile.PL Sun Jun 19 12:30:04 2011
@@ -20,10 +20,10 @@
'LICENSE' => 'perl',
'NAME' => 'Email::Sender::Transport::SMTP::TLS',
'PREREQ_PM' => {
- 'Email::Sender' => '0.102370',
- 'Net::SMTP::TLS::ButMaintained' => '0.13'
+ 'Email::Sender' => '0.110001',
+ 'Net::SMTP::TLS::ButMaintained' => '0.17'
},
- 'VERSION' => '0.09',
+ 'VERSION' => '0.10',
'test' => {
'TESTS' => 't/*.t'
}
Modified: branches/upstream/libemail-sender-transport-smtp-tls-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-sender-transport-smtp-tls-perl/current/README?rev=76116&op=diff
==============================================================================
--- branches/upstream/libemail-sender-transport-smtp-tls-perl/current/README (original)
+++ branches/upstream/libemail-sender-transport-smtp-tls-perl/current/README Sun Jun 19 12:30:04 2011
@@ -3,7 +3,7 @@
(Eg. Gmail)
VERSION
- version 0.09
+ version 0.10
SYNOPSIS
use Email::Sender::Simple qw(sendmail);
@@ -17,8 +17,8 @@
password => 'password',
helo => 'fayland.org',
);
-
- # my $message = Mail::Message->read($rfc822)
+
+ # my $message = Mail::Message->read($rfc822)
# || Email::Simple->new($rfc822)
# || Mail::Internet->new([split /\n/, $rfc822])
# || ...
@@ -34,8 +34,8 @@
],
body => 'Content.',
);
-
- try {
+
+ try {
sendmail($message, { transport => $transport });
} catch {
die "Error sending email: $_";
Modified: branches/upstream/libemail-sender-transport-smtp-tls-perl/current/dist.ini
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-sender-transport-smtp-tls-perl/current/dist.ini?rev=76116&op=diff
==============================================================================
--- branches/upstream/libemail-sender-transport-smtp-tls-perl/current/dist.ini (original)
+++ branches/upstream/libemail-sender-transport-smtp-tls-perl/current/dist.ini Sun Jun 19 12:30:04 2011
@@ -1,5 +1,5 @@
name = Email-Sender-Transport-SMTP-TLS
-version = 0.09
+version = 0.10
author = Fayland Lam <fayland at gmail.com>
license = Perl_5
copyright_holder = Fayland Lam
@@ -7,5 +7,5 @@
[@FAYLAND]
[Prereqs]
-Email::Sender = 0.102370
-Net::SMTP::TLS::ButMaintained = 0.13
+Email::Sender = 0.110001
+Net::SMTP::TLS::ButMaintained = 0.17
Modified: branches/upstream/libemail-sender-transport-smtp-tls-perl/current/lib/Email/Sender/Transport/SMTP/TLS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-sender-transport-smtp-tls-perl/current/lib/Email/Sender/Transport/SMTP/TLS.pm?rev=76116&op=diff
==============================================================================
--- branches/upstream/libemail-sender-transport-smtp-tls-perl/current/lib/Email/Sender/Transport/SMTP/TLS.pm (original)
+++ branches/upstream/libemail-sender-transport-smtp-tls-perl/current/lib/Email/Sender/Transport/SMTP/TLS.pm Sun Jun 19 12:30:04 2011
@@ -1,7 +1,7 @@
package Email::Sender::Transport::SMTP::TLS;
BEGIN {
- $Email::Sender::Transport::SMTP::TLS::VERSION = '0.09';
+ $Email::Sender::Transport::SMTP::TLS::VERSION = '0.10';
}
# ABSTRACT: Email::Sender with L<Net::SMTP::TLS> (Eg. Gmail)
@@ -17,6 +17,7 @@
has port => ( is => 'ro', isa => 'Int', default => 587 );
has username => ( is => 'ro', isa => 'Str', required => 1 );
has password => ( is => 'ro', isa => 'Str', required => 1 );
+has timeout => ( is => 'ro', isa => 'Int', default => 0 );
has allow_partial_success => ( is => 'ro', isa => 'Bool', default => 0 );
has helo => ( is => 'ro', isa => 'Str' ); # default to hostname_long
@@ -45,7 +46,8 @@
Port => $self->port,
User => $self->username,
Password => $self->password,
- $self->helo ? ( Hello => $self->helo ) : (),
+ $self->helo ? ( Hello => $self->helo ) : (),
+ $self->timeout ? ( Timeout => $self->timeout ) : (),
);
};
@@ -104,16 +106,20 @@
);
}
- my $message;
eval {
$smtp->data();
$smtp->datasend( $email->as_string );
$smtp->dataend;
+ };
+ $FAULT->("error at sending: $@") if $@;
+
+ my $message;
+ eval {
$message = $smtp->message;
$smtp->quit;
};
- # ignore $@
+ # ignore $@ from ->quit
# XXX: We must report partial success (failures) if applicable.
return $self->success( { message => $message } ) unless @failures;
@@ -169,7 +175,7 @@
=head1 VERSION
-version 0.09
+version 0.10
=head1 SYNOPSIS
Added: branches/upstream/libemail-sender-transport-smtp-tls-perl/current/t/00-compile.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-sender-transport-smtp-tls-perl/current/t/00-compile.t?rev=76116&op=file
==============================================================================
--- branches/upstream/libemail-sender-transport-smtp-tls-perl/current/t/00-compile.t (added)
+++ branches/upstream/libemail-sender-transport-smtp-tls-perl/current/t/00-compile.t Sun Jun 19 12:30:04 2011
@@ -1,0 +1,60 @@
+#!perl
+
+use strict;
+use warnings;
+
+use Test::More;
+
+
+
+ use File::Find;
+use File::Temp qw{ tempdir };
+
+my @modules;
+find(
+ sub {
+ return if $File::Find::name !~ /\.pm\z/;
+ my $found = $File::Find::name;
+ $found =~ s{^lib/}{};
+ $found =~ s{[/\\]}{::}g;
+ $found =~ s/\.pm$//;
+ # nothing to skip push @modules, $found;
+ },
+ 'lib',
+);
+
+my @scripts;
+if ( -d 'bin' ) {
+ find(
+ sub {
+ return unless -f;
+ my $found = $File::Find::name;
+ # nothing to skip push @scripts, $found;
+ },
+ 'bin',
+ );
+}
+
+my $plan = scalar(@modules) + scalar(@scripts);
+$plan ? ( plan tests => $plan ) : ( plan skip_all => "no tests to run" );
+
+{
+
+ # fake home for cpan-testers
+ # no fake requested ## local $ENV{HOME} = tempdir( CLEANUP => 1 );
+
+ like( qx{ $^X -Ilib -e "require $_; print '$_ ok'" },
+ qr/^\s*$_ ok/s, "$_ loaded ok" )
+ for sort @modules;
+
+ SKIP: {
+ eval "use Test::Script 1.05; 1;";
+ skip "Test::Script needed to test script compilation", scalar(@scripts)
+ if $@;
+ foreach my $file (@scripts) {
+ my $script = $file;
+ $script =~ s!.*/!!;
+ script_compiles( $file, "$script script compiles" );
+ }
+ }
+}
Added: branches/upstream/libemail-sender-transport-smtp-tls-perl/current/t/ok.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-sender-transport-smtp-tls-perl/current/t/ok.t?rev=76116&op=file
==============================================================================
--- branches/upstream/libemail-sender-transport-smtp-tls-perl/current/t/ok.t (added)
+++ branches/upstream/libemail-sender-transport-smtp-tls-perl/current/t/ok.t Sun Jun 19 12:30:04 2011
@@ -1,0 +1,4 @@
+#!/usr/bin/perl
+
+use Test::More tests => 1;
+ok(1);
More information about the Pkg-perl-cvs-commits
mailing list