view release on metacpan or  search on metacpan

pragmatic.pm  view on Meta::CPAN

}

sub disabled($) {
  !shift->enabled
}

sub import($;) {
  my $p = shift;
  $^H |= 0x20000;
  local *DESTROY = sub { };
  $^H{$p} = bless [$p, 1, delete $^H{$p}];
  $p->enable
}

sub unimport($;) {
  my $p = shift;
  $^H |= 0x20000;
  local *DESTROY = sub { };
  $^H{$p} = bless [$p, 0, delete $^H{$p}];
  $p->disable
}

1