http://www.perlmonks.org?node_id=1020918


in reply to Re^4: Use reference for functions in functions
in thread Use reference for functions in functions

When you want to have the same function react differently based on the amount of arguments...

If you were talking about C++ code, I'd understand perfectly what you were talking about: function overloading based on differing function signatures (prototypes). As you are talking about Perl code, I don't. I still imagine two functions  F with different prototypes that are differentially invoked based on differing argument lists, and that doesn't work in Perl.

Can you give a short, standalone, runnable example of what you were doing?

Replies are listed 'Best First'.
Re^6: Use reference for functions in functions
by T_I (Novice) on Feb 28, 2013 at 09:05 UTC

    What I was doing was:

    func.pl

    sub adding ($$) { my $first=shift; my $second=shift; my $third=($first + $second); print("$first + $second = $third\n"); } sub adding ($$$) { my $first=shift; my $second=shift; my $third=shift; print("$first + $second = $third\n"); } 1;

    test.pl(v1):
    #!/usr/bin/perl use strict; require "func.pl"; my $one = 1; my $two = 2; my $answer = ( $one + $two); adding($one,$two);


    rewriting to test.pl(v2):
    #!/usr/bin/perl use strict; require "func.pl"; my $one = 1; my $two = 2; my $answer = ( $one + $two); adding($one,$two,$answer);

    But I didn't test it myself during the rewrite and removing the ($$) version. I just tried to recreate it and got the errors and unpredictable behavior. Thanks for the pointer, Next time I'll just rewrite with an optional 3rd option in the original function and solve my rewrites that way.

    Seems I have a lot to refresh after 3 years of not coding.