package SafeCaller;

sub safe_caller { return caller(@_) if caller_allowed(); }
# disallow everyone from using safe_caller
sub caller_allowed { reutrn 0; }