my ($pkg, $caller) = (caller(1))[0, 3];
  $caller = '' unless $caller;
  my $perm = $caller eq __PACKAGE__ . "::perm";