view release on metacpan or  search on metacpan

lib/crap.pm  view on Meta::CPAN

my $hawt;

sub import {
  warnings->unimport();
  strict->unimport();
  $|=$hawt if defined $hawt;
}

sub unimport {
  strict->import();
  warnings->import();
  $hawt = $| if defined $|;
  $|=1;
}

q[for when it hits the fan];

__END__

=pod