package foo;
sub one { return 1 };
sub two { return 2 };
sub subs {
    no strict;
    return keys %foo::;
}