1package bogopragma;
2use strict;
3use warnings;
4
5sub import {
6  $^H{bogopragma} = 1;
7}
8
9sub unimport {
10  $^H{bogopragma} = 0;
11}
12
13sub in_effect {
14  my $level = shift // 0;
15  my $hinthash = (caller($level))[10];
16  return $hinthash->{bogopragma};
17}
18
191;
20