package Email::Simple::Creator; # $Id: Creator.pm,v 1.4 2004/07/25 20:29:28 cwest Exp $ use strict; use vars qw[$VERSION $CRLF]; $VERSION = (qw$Revision: 1.4 $)[1]; $CRLF = "\x0a\x0d"; sub _date_header { require Email::Date; Email::Date::format_date(); } sub _add_to_header { my ($class, $header, $key, $value) = @_; return unless $value; ${$header} .= join(": ", $key, $value) . $CRLF; } package Email::Simple; use strict; use vars qw[$CREATOR]; $CREATOR = 'Email::Simple::Creator'; sub create { my ($class, %args) = @_; my @headers = @{ $args{header} || [] }; my $body = $args{body} || ''; my $header = ''; my %headers; pop @headers if @headers % 2 == 1; while ( my ($key, $value) = splice @headers, 0, 2 ) { $headers{$key} = 1; $CREATOR->_add_to_header(\$header, $key, $value); } $CREATOR->_add_to_header(\$header, Date => $CREATOR->_date_header ) unless $headers{Date}; my $email = $class->new($header); $email->body_set($body . $email->{mycrlf}); return $email; } 1; __END__ =head1 NAME Email::Simple::Creator - Email::Simple constructor for starting anew. =head1 SYNOPSIS use Email::Simple; use Email::Simple::Creator; my $email = Email::Simple->create( header => [ From => 'casey@geeknest.com', To => 'drain@example.com', Subject => 'Message in a bottle', ], body => '...', ); $email->header_set( 'X-Content-Container' => 'bottle/glass' ); print $email->as_string; =head1 DESCRIPTION This software provides a constructor to L for creating messages from scratch. =head2 Methods =over 5 =item create my $email = Email::Simple->create(header => [ @headers ], body => '...'); This method is a constructor that creates an C object from a set of named parameters. The C

parameter's value is a list reference containing a set of headers to be created. The C parameter's value is a scalar value holding the contents of the message body. If no C header is specified, one will be provided for you based on the C of the local machine. This is because the C field is a required header and is a pain in the neck to create manually for every message. The C field is also a required header, but it is I provided for you. The parameters passed are used to create an email message that is passed to C<< Email::Simple->new() >>. C returns the value returned by C. With skill, that's an C object. =back =head1 SEE ALSO L, L. =head1 AUTHOR Casey West, >. =head1 COPYRIGHT Copyright (c) 2004 Casey West. All rights reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut