package Email::Simple::Creator; use strict; use vars qw[$VERSION $CRLF]; $VERSION = '1.422'; sub _crlf { "\x0d\x0a"; } sub _date_header { require Email::Date; Email::Date::format_date(); } sub _add_to_header { my ($class, $header, $key, $value) = @_; $value = '' unless defined $value; $$header .= "$key: $value" . $class->_crlf; } sub _finalize_header { my ($class, $header) = @_; $$header .= $class->_crlf; } package Email::Simple; use strict; use vars qw[$CREATOR]; $CREATOR = 'Email::Simple::Creator'; sub create { my ($class, %args) = @_; # We default it in here as well as below because by having it here, then we # know that if there are no other headers, we'll get the proper CRLF. # Otherwise, we get a message with incorrect CRLF. -- rjbs, 2007-07-13 my $headers = $args{header} || [ Date => $CREATOR->_date_header ]; my $body = $args{body} || ''; my $empty = q{}; my $header = \$empty; for my $idx (map { $_ * 2 } 0 .. @$headers / 2 - 1) { my ($key, $value) = @$headers[ $idx, $idx + 1 ]; $CREATOR->_add_to_header($header, $key, $value); } $CREATOR->_finalize_header($header); my $email = $class->new($header); $email->header_set(Date => $CREATOR->_date_header) unless defined $email->header('Date'); $body = (join $CREATOR->_crlf, split /\x0d\x0a|\x0a\x0d|\x0a|\x0d/, $body) . $CREATOR->_crlf; $email->body_set($body); return $email; } 1; __END__ =head1 NAME Email::Simple::Creator - build an Email::Simple object from scratch =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. =head1 METHODS =head2 create my $email = Email::Simple->create(header => [ @headers ], body => '...'); This method is a constructor that creates an Email::Simple 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. Line endings in the body will normalized to CRLF. 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. =head1 PERL EMAIL PROJECT This module is maintained by the Perl Email Project L =head1 AUTHORS Casey West originally wrote Email::Simple::Creator in 2004. Ricardo SIGNES took over maintenance in 2006. =head1 COPYRIGHT AND LICENSE Copyright (c) 2004 Casey West. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut