Select Code to Download

$ perl -le'
   print(exists(&Foo::some_sub)?1:0, defined(&Foo::some_sub)?1:0);
...
10
11
foo

$ perl -le'
   print(exists($Foo::{not_a_sub})?1:0);
...
'
0
1