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