diff options
| author | fukachan <fukachan> | 2001-12-26 02:48:49 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-12-26 02:48:49 +0000 |
| commit | 7108873bc8a85974072e83aa81b2393a25d8d553 (patch) | |
| tree | bd8943e40f07fbc8c9a652158b2b4c6fe8912142 | |
| parent | e14295b990667c7873ab8da20d011ce3c2c6a2fc (diff) | |
| download | fml8-7108873bc8a85974072e83aa81b2393a25d8d553.tar.gz fml8-7108873bc8a85974072e83aa81b2393a25d8d553.tar.bz2 fml8-7108873bc8a85974072e83aa81b2393a25d8d553.zip | |
update documents, comments
| -rw-r--r-- | fml/lib/Mail/Delivery.pm | 8 | ||||
| -rw-r--r-- | fml/lib/Mail/Delivery/ESMTP.pm | 7 |
2 files changed, 13 insertions, 2 deletions
diff --git a/fml/lib/Mail/Delivery.pm b/fml/lib/Mail/Delivery.pm index 98dab723..97201205 100644 --- a/fml/lib/Mail/Delivery.pm +++ b/fml/lib/Mail/Delivery.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Delivery.pm,v 1.3 2001/05/31 11:02:33 fukachan Exp $ +# $FML: Delivery.pm,v 1.4 2001/12/22 09:21:14 fukachan Exp $ # package Mail::Delivery; @@ -88,6 +88,12 @@ constructor. The request is forwarded to SUPER class. =cut +# Descriptions: constructor. +# load module suitable for specified protocol and +# return object such as Mail::Delivery::ESMTP. +# Arguments: OBJ($self) HASH_REF($args) +# Side Effects: load module +# Return Value: OBJ sub new { my ($self, $args) = @_; diff --git a/fml/lib/Mail/Delivery/ESMTP.pm b/fml/lib/Mail/Delivery/ESMTP.pm index 97f59bfd..c1449ef2 100644 --- a/fml/lib/Mail/Delivery/ESMTP.pm +++ b/fml/lib/Mail/Delivery/ESMTP.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: ESMTP.pm,v 1.3 2001/07/08 13:35:42 fukachan Exp $ +# $FML: ESMTP.pm,v 1.4 2001/12/22 09:21:17 fukachan Exp $ # package Mail::Delivery::ESMTP; @@ -15,6 +15,11 @@ use Mail::Delivery::SMTP; @ISA = qw(Mail::Delivery::SMTP); + +# Descriptions: constructor. forward the request to base class (SMTP). +# Arguments: OBJ($self) HASH_REF($args) +# Side Effects: none +# Return Value: OBJ sub new { my ($self) = @_; |