{
  my $caller = caller ;
  die unless $caller eq __PACKAGE__ ;
}