package pragma; use strict; use warnings; sub import { my $pragma = shift @_; $pragma = shift @_ if $pragma eq __PACKAGE__; my $value = shift @_; $^H{$pragma} = $value; return; } sub unimport { my $pragma = shift @_; $pragma = shift @_ if $pragma eq __PACKAGE__; delete $^H{$pragma} if exists $^H{$pragma}; return; } sub in_effect { my $pragma = shift @_; $pragma = shift @_ if $pragma eq __PACKAGE__; return $^H{$pragma}; } 1;