<br><font size=2 face="sans-serif">Try &nbsp;$subref-&gt;(parm1, parm2,
....)</font>
<br><font size=2 face="sans-serif"><br>
---<br>
Rick Croote<br>
Software Engineer<br>
Environment and Tools Team<br>
Philips Medical Systems<br>
Bothell, WA<br>
Rick.Croote@Philips.com<br>
Phone: 425-487-7834<br>
</font>
<br>
<br>
<br>
<table width=100%>
<tr valign=top>
<td width=33%>
<br>
<br>
<br>
<br>
<br><font size=1 face="sans-serif"><b>mike &lt;mike206@gmail.com&gt;</b>
</font>
<p><font size=1 face="sans-serif">Sent by:</font>
<br><font size=1 face="sans-serif">spug-list-bounces+rick.croote=philips.com@pm.org</font>
<p><font size=1 face="sans-serif">2006-04-18 02:22 PM</font>
<td width=66%>
<table width=100%>
<tr valign=top>
<td>
<div align=right><font size=1 face="sans-serif">To</font></div>
<td><font size=1 face="sans-serif">spug-list@pm.org</font>
<tr valign=top>
<td>
<div align=right><font size=1 face="sans-serif">cc</font></div>
<td>
<tr valign=top>
<td>
<div align=right><font size=1 face="sans-serif">Subject</font></div>
<td><font size=1 face="sans-serif">SPUG: Passing arguments to a code reference</font>
<tr>
<td>
<div align=right><font size=1 face="sans-serif">Classification</font></div>
<td></table>
<br>
<table>
<tr valign=top>
<td>
<td></table>
<div align=right>
<br></div></table>
<br>
<br>
<br><font size=3>Hi there<br>
<br>
I've tried a few things, including using the PROTO in the sub declaration,
<br>
but I cant seem to figure out how to pass some args to a code ref after
the creation of the code ref<br>
<br>
This code ref is being passed to an object which would like to add a hashref
to the argument list. <br>
<br>
This is in the perlsub documentation</font>
<br><font size=3><tt>&nbsp; &nbsp; $subref = sub (PROTO) : ATTRS BLOCK;
# with proto and attributes &nbsp;<br>
</tt></font><font size=2><tt>_____________________________________________________________<br>
Seattle Perl Users Group Mailing List &nbsp;<br>
 &nbsp; &nbsp; POST TO: spug-list@pm.org<br>
SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list<br>
 &nbsp; &nbsp;MEETINGS: 3rd Tuesdays<br>
 &nbsp; &nbsp;WEB PAGE: http://seattleperl.org/</tt></font>
<br>