Select Code to Download

sub some_abstract_method {
  __abstract($_[0], caller);
...
  my $func = (caller 1)[3];
  die "$func is abstract; in $file line $line\n";
}