Node::header()

[Daniel Quinlan <qu...@pathname.com>]

Hmmm... why do we strip whitespace from the keys?

This routine is so frequently called, extra work is bad.

Daniel

# Store or retrieve headers from a given MIME object
#
sub header {
  my $self   = shift;
  my $rawkey = shift;

  return unless ( defined $rawkey );

  # we're going to do things case insensitively
  my $key    = lc($rawkey);

  # Trim whitespace off of the header keys
  $key       =~ s/^\s+//;
  $key       =~ s/\s+$//;

-- 
Daniel Quinlan
http://www.pathname.com/~quinlan/