$can_be_called_from = { 
   foo => 1,
   bar => 0,
   baz => 1
};

sub foo { ... }
sub baz { ... }

1;