[perl #131502] [BUG] Incorrect useless use warning when WhateverCode is passed as arg to Callable

[Zoffix Znet via RT]

Oops. Long day. I meant WhateverCode is passed, not Junction.