Help for this page

Select Code to Download

Select or download this

  no strict 'refs';
  my $pkg = caller;
  *{ $pkg . "::foo" } = sub { ... }; # the final foo

Select or download this

sub foo {
  our $CALL_COUNT;
  call_me_only_once() unless $CALL_COUNT++;
  ...do stuff...
}