<?xml version="1.0" encoding="windows-1252"?>
<node id="161249" title="Re: Default subroutine parameters" created="2002-04-23 05:55:52" updated="2005-08-09 10:23:56">
<type id="11">
note</type>
<author id="138590">
jeffenstein</author>
<data>
<field name="doctext">
&lt;p&gt;For subroutines with more than one argument:
&lt;p&gt;&lt;CODE&gt;
sub mysub {
	return unless( (@_ % 2) == 0);
	my %args = (
		host =&gt; 'localhost',
		port =&gt; 25,
		@_);
	#
	print "Args: host = $args{'host'}, port = $args{'port'}\n";
	1;
}

mysub( host =&gt; 'gatekeeper.dec.com', port =&gt; 80)
	or die "Mysub failed";
&lt;/CODE&gt;
</field>
<field name="root_node">
161091</field>
<field name="parent_node">
161091</field>
</data>
</node>
