1 files changed, 41 insertions, 88 deletions
diff --git a/cpan/lib/Mail/Send.pm b/cpan/lib/Mail/Send.pm
index 7af92296..01add435 100644
--- a/cpan/lib/Mail/Send.pm
+++ b/cpan/lib/Mail/Send.pm
@@ -1,110 +1,63 @@
-
+# Copyrights 1995-2017 by [Mark Overmeer <perl@overmeer.net>].
+#  For other contributors see ChangeLog.
+# See the manual pages for details on the licensing terms.
+# Pod stripped from pm file by OODoc 2.02.
 package Mail::Send;
+use vars '$VERSION';
+$VERSION = '2.19';
 
-# $Id$
 
 use strict;
-use Carp;
-use vars qw($VERSION);
-require Mail::Mailer;
-
-$VERSION = "1.52";
-
-sub Version { $VERSION }
-
-sub new {
-    my $pkg = shift;
-    my %attr = @_;
-    my($key, $value);
-    my $me = bless {}, $pkg;
-    while( ($key, $value) = each %attr ) {
-	$key = lc($key);
-	$me->$key($value);
-    }
-    $me;
-}
 
-sub set {
-    my($me, $hdr, @values) = @_;
-    $me->{$hdr} = [ @values ] if @values;
-    @{$me->{$hdr} || []};	# return new (or original) values
-}
+use Mail::Mailer ();
 
-sub add {
-    my($me, $hdr, @values) = @_;
-    $me->{$hdr} = [] unless $me->{$hdr};
-    push(@{$me->{$hdr}}, @values);
-}
+sub Version { our $VERSION }
 
-sub delete {
-    my($me, $hdr) = @_;
-    delete $me->{$hdr};
-}
+#------------------
 
-sub to		{ my $me=shift; $me->set('To', @_); }
-sub cc		{ my $me=shift; $me->set('Cc', @_); }
-sub bcc		{ my $me=shift; $me->set('Bcc', @_); }
-sub subject	{ my $me=shift; $me->set('Subject', join (' ', @_)); }
+sub new(@)
+{   my ($class, %attr) = @_;
+    my $self = bless {}, $class;
 
+    while(my($key, $value) = each %attr)
+    {	$key = lc $key;
+        $self->$key($value);
+    }
 
-sub open {
-    my $me = shift;
-    Mail::Mailer->new(@_)->open($me);
+    $self;
 }
 
-1;
-
-__END__
-
-=head1 NAME
-
-Mail::Send - Simple electronic mail interface
-
-=head1 SYNOPSIS
-
-    require Mail::Send;
+#---------------
 
-    $msg = new Mail::Send;
-
-    $msg = new Mail::Send Subject=>'example subject', To=>'timbo';
-
-    $msg->to('user@host');
-    $msg->subject('example subject');
-    $msg->cc('user@host');
-    $msg->bcc('someone@else');
-
-    $msg->set($header, @values);
-    $msg->add($header, @values);
-    $msg->delete($header);
-
-    # Launch mailer and set headers. The filehandle returned
-    # by open() is an instance of the Mail::Mailer class.
-    # Arguments to the open() method are passed to the Mail::Mailer
-    # constructor.
-
-    $fh = $msg->open;               # some default mailer
-    # $fh = $msg->open('sendmail'); # explicit
-
-    print $fh "Body of message";
-
-    $fh->close;         # complete the message and send it
-
-    $fh->cancel;        # not yet implemented
+sub set($@)
+{   my ($self, $hdr, @values) = @_;
+    $self->{$hdr} = [ @values ] if @values;
+    @{$self->{$hdr} || []};	# return new (or original) values
+}
 
-=head1 DESCRIPTION
 
-=head1 SEE ALSO
+sub add($@)
+{   my ($self, $hdr, @values) = @_;
+    push @{$self->{$hdr}}, @values;
+}
 
-Mail::Mailer
 
-=head1 AUTHORS
+sub delete($)
+{   my($self, $hdr) = @_;
+    delete $self->{$hdr};
+}
 
-Maintained by Mark Overmeer <mailtools@overmeer.net>
 
-Original code written by Tim Bunce E<lt>F<Tim.Bunce@ig.co.uk>E<gt>,
-with a kick start from Graham Barr E<lt>F<gbarr@pobox.com>E<gt>. With
-contributions by Gerard Hickey E<lt>F<hickey@ctron.com>E<gt>
+sub to		{ my $self=shift; $self->set('To', @_); }
+sub cc		{ my $self=shift; $self->set('Cc', @_); }
+sub bcc		{ my $self=shift; $self->set('Bcc', @_); }
+sub subject	{ my $self=shift; $self->set('Subject', join (' ', @_)); }
 
-=cut
+#---------------
 
+sub open(@)
+{   my $self = shift;
+    Mail::Mailer->new(@_)->open($self);
+}
 
+1;