view release on metacpan or  search on metacpan

lib/Acme/Undead.pm  view on Meta::CPAN

}

sub unimport {
  $^H{acme_undead} = 0;
  $IS_UNDEAD = 0;
}

sub _die {
  my $class    = shift;
  my $hinthash = (caller(0))[10];
  return $hinthash->{acme_undead} ? undef : die(shift);
}

sub _sleep {
  my $hinthash = (caller(0))[10];
  return $hinthash->{acme_undead} ? undef : sleep(shift);
}

sub _bless {
  my $hinthash = (caller(0))[10];
  return $hinthash->{acme_undead} ? die('blessed') : do {
    my $arg = shift;
    my $pkg = shift || (caller(0))[0];
    bless($arg, $pkg);
  }
}