get hints from strictures as late as possible

[p5sagit/Eval-WithLexicals.git] / t / lib / hint_hash_pragma.pm

package hint_hash_pragma;
use strictures 1;

sub import {
  my ($class, $val) = @_;
  $^H |= 0x20000;
  $^H{hint_hash_pragma} = $val;
}

1;