perl -wMstrict -E 'package X;{sub blah{}} say defined &X::blah'
1