r25804 - in /branches/upstream/libemail-messageid-perl/current: Changes META.yml lib/Email/MessageID.pm
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Mon Oct 6 16:34:32 UTC 2008
Author: ansgar-guest
Date: Mon Oct 6 16:34:29 2008
New Revision: 25804
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=25804
Log:
[svn-upgrade] Integrating new upstream version, libemail-messageid-perl (1.400)
Modified:
branches/upstream/libemail-messageid-perl/current/Changes
branches/upstream/libemail-messageid-perl/current/META.yml
branches/upstream/libemail-messageid-perl/current/lib/Email/MessageID.pm
Modified: branches/upstream/libemail-messageid-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-messageid-perl/current/Changes?rev=25804&op=diff
==============================================================================
--- branches/upstream/libemail-messageid-perl/current/Changes (original)
+++ branches/upstream/libemail-messageid-perl/current/Changes Mon Oct 6 16:34:29 2008
@@ -1,3 +1,8 @@
+1.400 2008-10-02
+ return MessageID objects, not Email::Address objects
+ this lets us add in_brackets
+ use Sys::Hostname::Long if available
+
1.351 2007-03-22
packaging improvements
Modified: branches/upstream/libemail-messageid-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-messageid-perl/current/META.yml?rev=25804&op=diff
==============================================================================
--- branches/upstream/libemail-messageid-perl/current/META.yml (original)
+++ branches/upstream/libemail-messageid-perl/current/META.yml Mon Oct 6 16:34:29 2008
@@ -1,16 +1,16 @@
--- #YAML:1.0
name: Email-MessageID
-version: 1.351
+version: 1.400
abstract: Generate world unique message-ids
license: perl
-generated_by: ExtUtils::MakeMaker version 6.32
+author:
+ - Casey West <casey at geeknest.com>
+generated_by: ExtUtils::MakeMaker version 6.44
distribution_type: module
requires:
Email::Address: 1.80
Sys::Hostname: 1.1
Test::More: 0.47
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.2.html
- version: 1.2
-author:
- - Casey West <casey at geeknest.com>
+ url: http://module-build.sourceforge.net/META-spec-v1.3.html
+ version: 1.3
Modified: branches/upstream/libemail-messageid-perl/current/lib/Email/MessageID.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-messageid-perl/current/lib/Email/MessageID.pm?rev=25804&op=diff
==============================================================================
--- branches/upstream/libemail-messageid-perl/current/lib/Email/MessageID.pm (original)
+++ branches/upstream/libemail-messageid-perl/current/lib/Email/MessageID.pm Mon Oct 6 16:34:29 2008
@@ -1,10 +1,9 @@
+use strict;
+use warnings;
package Email::MessageID;
-use strict;
+use base 'Email::Address';
-use vars qw[$VERSION];
-$VERSION = '1.351';
-
-use Email::Address;
+our $VERSION = '1.400';
=head1 NAME
@@ -23,11 +22,9 @@
Message-ids are optional, but highly recommended, headers that identify a
message uniquely. This software generates a unique message-id.
-=head2 Methods
+=head1 METHODS
-=over 4
-
-=item new
+=head2 new
my $mid = Email::MessageID->new;
@@ -56,25 +53,33 @@
my $mid = join '@', @args{qw[user host]};
- return Email::Address->new(undef, $mid);
+ my $addr = Email::Address->new(undef, $mid);
+
+ bless $addr => $class;
}
-=item create_host
+=head2 create_host
- my $domain_part = Email::Address->create_host;
+ my $domain_part = Email::MessageID->create_host;
This method returns the domain part of the message-id.
=cut
+my $_SYS_HOSTNAME_LONG;
sub create_host {
- require Sys::Hostname;
- return Sys::Hostname::hostname();
+ unless (defined $_SYS_HOSTNAME_LONG) {
+ $_SYS_HOSTNAME_LONG = (eval { require Sys::Hostname::Long; 1 }) || 0;
+ require Sys::Hostname unless $_SYS_HOSTNAME_LONG;
+ }
+
+ return $_SYS_HOSTNAME_LONG ? Sys::Hostname::Long::hostname()
+ : Sys::Hostname::hostname();
}
-=item create_user
+=head2 create_user
- my $local_part = Email::Address->create_user;
+ my $local_part = Email::MessageID->create_user;
This method returns a unique local part for the message-id. It includes some
random data and some predictable data.
@@ -97,13 +102,30 @@
return $user;
}
+=head2 in_brackets
+
+The Message-Id header must start and end with angle brackets. This is a common
+mistake:
+
+ header => [
+ ...
+ 'Message-Id' => Email::MessageID->new->as_string,
+ ],
+
+Instead, use C<in_brackets> to get the string inside angle brackets.
+
+=cut
+
+sub in_brackets {
+ my ($self) = @_;
+ return sprintf '<%s>', $self->as_string;
+}
+
1;
__END__
=pod
-
-=back
=head1 SEE ALSO
More information about the Pkg-perl-cvs-commits
mailing list