Help for this page

Select Code to Download

Select or download this

sub Invoker::first    { shift; &first_callback }
sub Invoker::last     { shift; &last_callback }
sub Invoker::AUTOLOAD { -1 }
...
  my $name = shift; 
  Invoker->$name(@_); 
}

Select or download this

use strict;
use warnings;

...
   my $rc = invoker( $name, $name . '-arg' );
   print "$name: rc=$rc\n";
}