To verify whether a function is called in list context or scalar context, use wantarray.

Here's a snippet of code to verify my assumption:

my $a;

($a) = ($a) || foo();
($a) ||= foo();

sub foo {
    wantarray ? print("list\n") : print("scalar\n");
    return 0;
}
[download]

and it prints

list
scalar