Help for this page

Select Code to Download

Select or download this

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

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