Jeff
Like I said in my text. I tried BOTH solutions, it is only commented out to
show this. Yes I tried that
Format, I commneted out my @loop = GetOfficers(); and likewise the other bit in
main menu.
The crux is my @loop = GetOfficers($self); doesn't work either!
On Apr 19, Hawkes, Mick I said:
>But back to the original question. I need to put a lot of re-occurring
>code into subroutines (as you do) however I am hampered to a problem
with
>passing shift I think. This is a very simplified test code where I
have
>tried passing shift as an argument and also as a call (see commented
out
>bits) both give the same error:
>
> "Error executing run mode 'mode_0': can't call method "param" on an
>undefined value at test_code.pm line 57
That's because you DIDN'T PASS ANYTHING to the GetOfficers() function.
> sub mainmenu
> {
> my $self = shift;
> # my @loop = GetOfficers($self);
> my @loop = GetOfficers();
> }
You should be doing:
my @loop = GetOfficers($self);
--
Jeff "japhy" Pinyan % How can we ever be the sold short or
RPI Acacia Brother #734 % the cheated, we who for every service
http://japhy.perlmonk.org/ % have long ago been overpaid?
http://www.perlmonks.org/ % -- Meister Eckhart
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
