$ perl -MO=Deparse -e '$foo{__PACKAGE__."::foo"}=1;'
$foo{'main::foo'} = 1;
-e syntax OK