r25804 - in /branches/upstream/libemail-messageid-perl/current: Changes META.yml lib/Email/MessageID.pm

[ansgar-guest at users.alioth.debian.org]

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