If you feed the code you are having trouble with in to Deparse,-p you get:
C:\>perl -MO=Deparse,-p -e"die ref $res ? $res->faultstring : $soap->t
+ransport->status"
die((ref($res) ? $res->faultstring : $soap->transport->status));
-e syntax OK
And if we add a little horizontal whitespace to that: die( ( ref( $res ) ? $res->faultstring : $soap->transport->status ) );
You can see that the ref( $res ) part is a conditional test to see if $res is a reference.
If it is, then it passes $res->faultstring to die.
Otherwise it passes: $soap->transport->status to die.
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
|