Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

...
        printf("%-30s : ", $_);
        eval($_) || print "# $@\n";
}

Select or download this

foo(@foo_bar);                 : 2
Argument "" isn't numeric in array element at (eval 2) line 1.
foo($foo_bar[0..$#foo_bar]);   : foo
...
foo(returns_two());            : bar
foo(returns_two_2());          : bar
foo(returns_array());          : 2