Help for this page

Select Code to Download


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