r7696 - in /branches/upstream/libemail-send-perl/current: Changes MANIFEST META.yml Makefile.PL lib/Email/Send.pm lib/Email/Send/IO.pm lib/Email/Send/Test.pm t/abstract-msg.t t/io.t t/lib/Without.pm

hanska-guest at users.alioth.debian.org hanska-guest at users.alioth.debian.org
Tue Sep 18 08:52:35 UTC 2007


Author: hanska-guest
Date: Tue Sep 18 08:52:35 2007
New Revision: 7696

URL: http://svn.debian.org/wsvn/?sc=1&rev=7696
Log:
[svn-upgrade] Integrating new upstream version, libemail-send-perl (2.189)

Removed:
    branches/upstream/libemail-send-perl/current/lib/Email/Send/IO.pm
    branches/upstream/libemail-send-perl/current/t/io.t
Modified:
    branches/upstream/libemail-send-perl/current/Changes
    branches/upstream/libemail-send-perl/current/MANIFEST
    branches/upstream/libemail-send-perl/current/META.yml
    branches/upstream/libemail-send-perl/current/Makefile.PL
    branches/upstream/libemail-send-perl/current/lib/Email/Send.pm
    branches/upstream/libemail-send-perl/current/lib/Email/Send/Test.pm
    branches/upstream/libemail-send-perl/current/t/abstract-msg.t
    branches/upstream/libemail-send-perl/current/t/lib/Without.pm

Modified: branches/upstream/libemail-send-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libemail-send-perl/current/Changes?rev=7696&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/Changes (original)
+++ branches/upstream/libemail-send-perl/current/Changes Tue Sep 18 08:52:35 2007
@@ -1,151 +1,141 @@
-2.185   2006-02-05
-  - no code changes, only test changes
-  - use UNLINK not CLEANUP for File::Temp::tempfile
+2.189     2007-09-17
+          fix bugs exposed by new Test::More
 
-2.184   2006-02-05
-  - no code changes, only test changes
-  - create tempdirs under t, in case TMPDIR or /tmp is noexec
-    (spotted by MST)
+2.188     2007-06-19
+          added ->deliveries to Test mailer
 
-2.183   2006-12-14
-  - fix test skip error on Win32; claimed to skip 1, then skipped 2
-    thanks for the test report, Steffen Mueller!
+2.187     2007-04-05
+          Email::Send::IO removed to Email-Send-IO distribution
 
-2.182   2006-12-07
-  - skip/fix some tests on Win32
-  - move to/from finding to another method in ::SMTP
+2.186     2007-04-02
+          fix test libraries to work on 5.005
 
-2.181   2006-11-25
-  - remove dependency on Class::Accessor::Fast, which broke its $VERSION
+2.185     2006-02-05
+          no code changes, only test changes
+          use UNLINK not CLEANUP for File::Temp::tempfile
 
-2.180   2006-08-23
+2.184     2006-02-05
+          no code changes, only test changes
+          create tempdirs under t, in case TMPDIR or /tmp is noexec
+          (spotted by MST)
 
-  - add support for TLS SMTP, based on a patch by Fayland Lam
+2.183     2006-12-14
+          fix test skip error on Win32; claimed to skip 1, then skipped 2
+          thanks for the test report, Steffen Mueller!
 
-2.171   2006-07-29
+2.182     2006-12-07
+          skip/fix some tests on Win32
+          move to/from finding to another method in ::SMTP
 
-  - improve tests and contents, giving up on Test::Without::Module
+2.181     2006-11-25
+          remove dependency on Class::Accessor::Fast, which broke its $VERSION
 
-2.17    2006-07-28
+2.180     2006-08-23
 
-  - skip tests for optional functionality (bug 20740, eloy)
-  - fix typo in POD (thanks J. Cheetham!)
+          add support for TLS SMTP, based on a patch by Fayland Lam
 
-2.16    2006-07-24
+2.171     2006-07-29
 
-  - the without.t test no longer breaks if Test::Without::Module isn't there
+          improve tests and contents, giving up on Test::Without::Module
 
-2.15    2006-07-21
+2.17      2006-07-28
 
-  - append, to not print, to IO::All objects
-  - added simple test for message modifier (response to bug from ABH)
-  - use File::Spec->path for path, not ENV{PATH} (bug 20109, Simon Flack)
-  - use Symbol.pm, not global filehandles
-  - undef is never a valid message
-  - remove use warnings
-  - plan all tests
-  - improve testing
-  - add pod tests
+          skip tests for optional functionality (bug 20740, eloy)
+          fix typo in POD (thanks J. Cheetham!)
 
-2.11    2006-07-05
+2.16      2006-07-24
+          the without.t test no longer breaks if Test::Without::Module isn't
+          there
 
-  - fixed bug introduced in 2.10; message modifiers were broken
-    thanks ABH
+2.15      2006-07-21
+          append, to not print, to IO::All objects
+          added simple test for message modifier (response to bug from ABH)
+          use File::Spec->path for path, not ENV{PATH} (bug 20109, Simon Flack)
+          use Symbol.pm, not global filehandles
+          undef is never a valid message
+          remove use warnings
+          plan all tests
+          improve testing
+          add pod tests
 
-2.10    2006-07-03
+2.11      2006-07-05
+          fixed bug introduced in 2.10; message modifiers were broken thanks ABH
 
-  - improve portability of sendmail.t (rjbs)
-  - fix bugs with plugins outside Email::Send:: (rjbs)
-  - allow objects as mailers (rjbs)
-  - clarify documentation (rjbs)
-  - improve backwards compat with Email::Send 1 (see no-import.t) (rjbs)
+2.10      2006-07-03
+          improve portability of sendmail.t (rjbs)
+          fix bugs with plugins outside Email::Send:: (rjbs)
+          allow objects as mailers (rjbs)
+          clarify documentation (rjbs)
+          improve backwards compat with Email::Send 1 (see no-import.t) (rjbs)
 
-2.05    2006-04-20
+2.05      2006-04-20
+          Removed UNIVERSAL::require use.
 
-  - Removed UNIVERSAL::require use.
+2.04      2006-01-28
+          Integrated Email::Send::Test (Adam Kennedy).
 
-2.04    2006-01-28
+2.03      2006-01-28
+          Updated tests to only check the interface of distributed mailers.
+          Updated Email::Send::Sendmail to provide much more detail when mail
+          fails to send. (Dave Rolksy and Casey West).
 
-  - Integrated Email::Send::Test (Adam Kennedy).
+2.01      2006-01-17
+          Updated tests to only check distributed mailers.
+          Updated version numbers in all packages for proper indexing.
 
-2.03    2006-01-28
+2.00      2005-12-15
+          Grafted Classic interface but did not document it.
 
-  - Updated tests to only check the interface of distributed mailers.
-  - Updated Email::Send::Sendmail to provide much more detail when mail fails
-    to send. (Dave Rolksy and Casey West).
+1.99_01   2005-05-09
+          Major changes to API.
+          Changes to Makefile.PL to aid in recommended module builds.
+          Alpha-release of new interface.
 
-2.01    2006-01-17
+1.46      2005-01-08
+          SMTP was broken. I made a horrible mistake with my use of eval.
+          Honestly, I feel quite silly. I'm sorry.
+          Added eg/send-email.pl, a program to aid in testing and debuging of
+          this code.
 
-  - Updated tests to only check distributed mailers.
-  - Updated version numbers in all packages for proper indexing.
+1.45      2004-12-22
+          Bug in Email::Send::SMTP in collecting addresses to send for RCPT.
+          Added more error checking in Email::Send::SMTP to return proper
+          diagnostics.
+          Updated dependencies.
 
-2.00    2005-12-15
+1.44      2004-12-17
+          Make Email::Send::SMTP use Return::Value for its returns. These are
+          compatible with previous behavior, but offer more detail on just what
+          went wrong.
+          Require Return::Value as a dependency. Other mailers may begin using it
+          for returns in the future.
 
-  - Grafted Classic interface but did not document it.
+1.43      2004-08-07
+          Make Email::Send::SMTP send args to Net::SMTP with host first.  This
+          makes older Net::SMTPs happy.
 
-1.99_01    2005-05-09
+1.42      2004-07-29
+          Remove hard dependency on Email::Abstract (for IO::All).
+          Declare hard dependency on Email::Simple.
 
-  - Major changes to API.
-  - Changes to Makefile.PL to aid in recommended module builds.
-  - Alpha-release of new interface.
+1.41      2004-07-20
+          Only set defaults for $Sendmail and $Qmail in those mailers when the
+          package variable is not already set (Peter Scott).
+          SSL support for Email::Send::SMTP.
+          Use different version scheme, I need more numbers.
 
-1.46   2005-01-08
+1.4       2004-07-08
+          Relaxed prereq on IO::All for testing.
+          Included Bcc in list of addresses to MAIL TO: in Email::Send::SMTP.
+          Now supports Net::SMTP's auth() (Aaron Trevena).
 
-  - SMTP was broken. I made a horrible mistake with my use of eval.
-    Honestly, I feel quite silly. I'm sorry.
-  - Added eg/send-email.pl, a program to aid in testing and debuging
-    of this code.
+1.3       2004-07-05
+          Doc typo in Email::Send::Sendmail (Martin 'Kingpin' Thurn).
 
-1.45   2004-12-22
+1.2       2004-06-29
+          Email::Send::SMTP now sends multiple MAIL commands for each address in
+          the To and Cc headers. It does not fail when it encounters bad
+          addresses, as long as at least one address succeeds.
 
-  - Bug in Email::Send::SMTP in collecting addresses to send for RCPT.
-  - Added more error checking in Email::Send::SMTP to return proper
-    diagnostics.
-  - Updated dependencies.
-
-1.44   2004-12-17
-
-  - Make Email::Send::SMTP use Return::Value for its returns. These
-    are compatible with previous behavior, but offer more detail on
-    just what went wrong.
-  - Require Return::Value as a dependency. Other mailers may begin
-    using it for returns in the future.
-
-1.43   2004-08-07
-
-  - Make Email::Send::SMTP send args to Net::SMTP with host first.
-    This makes older Net::SMTPs happy.
-
-1.42   2004-07-29
-
-  - Remove hard dependency on Email::Abstract (for IO::All).
-  - Declare hard dependency on Email::Simple.
-
-1.41   2004-07-20
-
-  - Only set defaults for $Sendmail and $Qmail in those mailers
-    when the package variable is not already set (Peter Scott).
-  - SSL support for Email::Send::SMTP.
-  - Use different version scheme, I need more numbers.
-
-1.4    2004-07-08
-
-  - Relaxed prereq on IO::All for testing.
-  - Included Bcc in list of addresses to MAIL TO: in
-    Email::Send::SMTP.
-  - Now supports Net::SMTP's auth() (Aaron Trevena).
-
-1.3    2004-07-05
-
-  - Doc typo in Email::Send::Sendmail (Martin 'Kingpin' Thurn).
-
-1.2    2004-06-29
-
-  - Email::Send::SMTP now sends multiple MAIL commands for
-    each address in the To and Cc headers. It does not fail
-    when it encounters bad addresses, as long as at least one
-    address succeeds.
-
-1.1    2004-05-27
-
-  - Initial version.
+1.1       2004-05-27
+          Initial version.

Modified: branches/upstream/libemail-send-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/branches/upstream/libemail-send-perl/current/MANIFEST?rev=7696&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/MANIFEST (original)
+++ branches/upstream/libemail-send-perl/current/MANIFEST Tue Sep 18 08:52:35 2007
@@ -1,7 +1,6 @@
 Changes
 eg/send-email.pl
 lib/Email/Send.pm
-lib/Email/Send/IO.pm
 lib/Email/Send/NNTP.pm
 lib/Email/Send/Qmail.pm
 lib/Email/Send/Sendmail.pm
@@ -17,7 +16,6 @@
 t/email-send.t
 t/errors.t
 t/foreign-mailer.t
-t/io.t
 t/lib/BadMailer.pm
 t/lib/Email/Send/Fail.pm
 t/lib/Email/Send/OK.pm

Modified: branches/upstream/libemail-send-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libemail-send-perl/current/META.yml?rev=7696&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/META.yml (original)
+++ branches/upstream/libemail-send-perl/current/META.yml Tue Sep 18 08:52:35 2007
@@ -1,9 +1,9 @@
 --- #YAML:1.0
 name:                Email-Send
-version:             2.185
+version:             2.189
 abstract:            Simply Sending Email
 license:             perl
-generated_by:        ExtUtils::MakeMaker version 6.31
+generated_by:        ExtUtils::MakeMaker version 6.32
 distribution_type:   module
 requires:     
     Email::Address:                1.80

Modified: branches/upstream/libemail-send-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libemail-send-perl/current/Makefile.PL?rev=7696&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/Makefile.PL (original)
+++ branches/upstream/libemail-send-perl/current/Makefile.PL Tue Sep 18 08:52:35 2007
@@ -3,9 +3,8 @@
 
 WriteMakefile (
   AUTHOR        => 'Casey West <casey at geeknest.com>',
-  ABSTRACT      => "Simply Sending Email",
   NAME          => 'Email::Send',
-  (eval { ExtUtils::MakeMaker->VERSION(6.21) } ? (LICENSE => 'perl') : ()),
+  ABSTRACT_FROM => 'lib/Email/Send.pm',
   PREREQ_PM     => {
     'Email::Address'        => '1.80', # avoid many 'returns bad addr' bugs
     'Email::Simple'         => '1.92', # previous versions have prereq problems
@@ -17,4 +16,5 @@
     'Test::More'            => '0.47', # reason unknown;  core in 5.8.1
   },
   VERSION_FROM  => 'lib/Email/Send.pm',
+  (eval { ExtUtils::MakeMaker->VERSION(6.21) } ? (LICENSE => 'perl') : ()),
 );

Modified: branches/upstream/libemail-send-perl/current/lib/Email/Send.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libemail-send-perl/current/lib/Email/Send.pm?rev=7696&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/lib/Email/Send.pm (original)
+++ branches/upstream/libemail-send-perl/current/lib/Email/Send.pm Tue Sep 18 08:52:35 2007
@@ -2,7 +2,7 @@
 use strict;
 
 use vars qw[$VERSION];
-$VERSION   = '2.185';
+$VERSION   = '2.189';
 
 use Email::Simple;
 use Module::Pluggable search_path => 'Email::Send';
@@ -53,7 +53,7 @@
 
 =over 4
 
-=item new()
+=item new
 
   my $sender = Email::Send->new({
       mailer      => 'NNTP',
@@ -74,7 +74,7 @@
 
 The mailing system you'd like to use for sending messages with this object.
 This is not defined by default. If you don't specify a mailer, all available
-plugins will be tried when the C<send()> method is called until one succeeds.
+plugins will be tried when the C<send> method is called until one succeeds.
 
 =item mailer_args
 
@@ -82,10 +82,10 @@
 
 =item message_modifier
 
-If defined, this callback is invoked every time the C<send()> method is called
+If defined, this callback is invoked every time the C<send> method is called
 on an object. The mailer object will be passed as the first argument. Second,
 the actual C<Email::Simple> object for a message will be passed. Finally, any
-additional arguments passed to C<send()> will be passed to this method in the
+additional arguments passed to C<send> will be passed to this method in the
 order they were recieved.
 
 This is useful if you are sending in bulk.
@@ -118,11 +118,11 @@
   }
 }
 
-=head2 Methods
+=head2 METHODS
 
 =over 4
 
-=item send()
+=item send
 
   my $result = $sender->send($message, @modifier_args);
 
@@ -130,8 +130,9 @@
 have defined a C<message_modifier> it will be called prior to sending.
 
 The first argument you pass to send is an email message. It must be in some
-format that C<Email::Abstract> can understand. If you don't have C<Email::Abstract>
-installed then sending as plain text or an C<Email::Simple> object will do.
+format that C<Email::Abstract> can understand. If you don't have
+C<Email::Abstract> installed then sending as plain text or an C<Email::Simple>
+object will do.
 
 Any remaining arguments will be passed directly into your defined
 C<message_modifier>.
@@ -157,7 +158,7 @@
     return $self->_try_all($simple);
 }
 
-=item all_mailers()
+=item all_mailers
 
   my @available = $sender->all_mailers;
 
@@ -175,7 +176,7 @@
     return @mailers;
 }
 
-=item mailer_available()
+=item mailer_available
 
   # is SMTP over SSL avaialble?
   $sender->mailer('SMTP')
@@ -183,7 +184,7 @@
 
 Given the name of a mailer, such as C<SMTP>, determine if it is
 available. Any additional arguments passed to this method are passed
-directly to the C<is_available()> method of the mailer being queried.
+directly to the C<is_available> method of the mailer being queried.
 
 =back
 
@@ -345,6 +346,12 @@
 L<Email::Send::Sendmail>,
 L<perl>.
 
+=head1 PERL EMAIL PROJECT
+
+This module is maintained by the Perl Email Project.
+
+L<http://emailproject.perl.org/wiki/Email::Send>
+
 =head1 AUTHOR
 
 Current maintainer: Ricardo SIGNES, <F<rjbs at cpan.org>>.

Modified: branches/upstream/libemail-send-perl/current/lib/Email/Send/Test.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libemail-send-perl/current/lib/Email/Send/Test.pm?rev=7696&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/lib/Email/Send/Test.pm (original)
+++ branches/upstream/libemail-send-perl/current/lib/Email/Send/Test.pm Tue Sep 18 08:52:35 2007
@@ -70,11 +70,11 @@
 
 use vars qw{$VERSION};
 BEGIN {
-	$VERSION = '2.04';
+	$VERSION = '2.188';
 }
 
 # No longer allow direct access to the array
-my @EMAILS = ();
+my @DELIVERIES = ();
 
 # This mailer is always available
 sub is_available { 1 }
@@ -101,8 +101,9 @@
 =cut
 
 sub send {
-	my $class = shift;
-	push @EMAILS, @_;
+  my ($self, $email, @rest) = @_;
+
+  push @DELIVERIES, [ $self, $email, \@rest ];
 	return 1;
 }
 
@@ -120,7 +121,8 @@
 =cut
 
 sub emails {
-	wantarray ? @EMAILS : scalar(@EMAILS);
+  return scalar @DELIVERIES unless wantarray;
+  return map { $_->[1] } @DELIVERIES;
 }
 
 =pod
@@ -138,8 +140,25 @@
 =cut
 
 sub clear {
-	@EMAILS = ();
+	@DELIVERIES = ();
 	return 1;
+}
+
+=head2 deliveries
+
+This method returns a list of arrayrefs, one for each call to C<send> that has
+been made.  Each arrayref is in the form:
+
+  [ $mailer, $email, \@rest ]
+
+The first element is the invocant on which C<send> was called.  The second is
+the email that was given to C<send>.  The third is the rest of the arguments
+given to C<send>.
+
+=cut
+
+sub deliveries {
+  @DELIVERIES
 }
 
 1;

Modified: branches/upstream/libemail-send-perl/current/t/abstract-msg.t
URL: http://svn.debian.org/wsvn/branches/upstream/libemail-send-perl/current/t/abstract-msg.t?rev=7696&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/t/abstract-msg.t (original)
+++ branches/upstream/libemail-send-perl/current/t/abstract-msg.t Tue Sep 18 08:52:35 2007
@@ -2,8 +2,8 @@
 use strict;
 $^W = 1;
 
-BEGIN { use_ok('Email::Send', 'Test'); }
-require Email::Send::Test;
+use Email::Send::Test;
+use Email::Send 'Test';
 
 plan skip_all => "Email::Abstract required for these tests"
   unless eval "use Email::Abstract; 1";

Modified: branches/upstream/libemail-send-perl/current/t/lib/Without.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libemail-send-perl/current/t/lib/Without.pm?rev=7696&op=diff
==============================================================================
--- branches/upstream/libemail-send-perl/current/t/lib/Without.pm (original)
+++ branches/upstream/libemail-send-perl/current/t/lib/Without.pm Tue Sep 18 08:52:35 2007
@@ -1,5 +1,4 @@
 use strict;
-use warnings;
 
 package Without;
 




More information about the Pkg-perl-cvs-commits mailing list