sub foo;

print( __PACKAGE__->can('foo') ?1:0,"\n");  # 1
print( defined(&foo)           ?1:0,"\n");  # 0
print( exists(&foo)            ?1:0,"\n");  # 1