>perl -wle "{ package UNIVERSAL; sub test { '!' } } print I->can('test')?1:0;"
0

>perl -wle "{ package UNIVERSAL; sub test { '!' } } print I->test;"
!