
The stupid question is the question not asked
	PerlMonks

by ihb (Deacon)

on Jan 15, 2003 at 22:40 UTC ( [id://227255]=note: print w/replies, xml )

Need Help??

Select Code to Download

  sub get_headers {
    my $self = shift;
    my @headers = @_;
...
    my @values = @{$self->{headers}}{@headers};
    return @values;
  }

Select or download this
my ($recipient, $sender) = $obj->get_headers('to', 'from');
Select or download this
my ($recipient) = $obj->get_headers('to');
Select or download this
return wantarray ? @values : $values[0];
Select or download this
my $recipient = $obj->get_headers('to');
Select or download this
my $recipient = $obj->get_headers('to', 'from');

  return @results if wantarray;
  carp("More than one value in result in scalar context")
    if @results > 1;
  return $results[0];

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://227255]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others drinking their drinks and smoking their pipes about the Monastery: (2)

As of 2024-04-19 18:54 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found