Select Code to Download

package Cloneable;   # interface

sub clone { die "you must implement clone() yourself" }

1;

sub import {
  my $callerpackage = caller;
...

  undef $locks{$callerpackage};
}