When in doubt about what exactly the precedence will be, B::Deparse is your friend.

$ perl -MO=Deparse,-b,-p -e 'my $o = mysub() || print STDERR "WHY U NO
+ WORK\n";' 
(my $o = (mysub() || print(STDERR "didnt work\n")));
[download]