Scalar or array function

Question

I have to do function which will work as scalar and as array. For example:

@t = testfunc(1, 2, 3, 4);
$x = testfunc(1, 2, 3, 4);

Anbody have idea how I can do it? It have to print "scalar" if it's $x and print "array" if @t. I tried to do something like this:

sub testfunc()
{
   print "test";
}

But even this doesn't work :/

Answer 1

This feature is named "call context". Use the wantarray keyword.

@t = testfunc(1, 2, 3, 4);
$x = testfunc(1, 2, 3, 4);
sub testfunc {
    if ( wantarray ) {
        print "List context\n";
    }
    # False, but defined
    elsif ( defined wantarray ) {
        print "Scalar context\n";
    }
    # False and undefined
    else {
        print "Void context\n";
    }
}