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