3 mypragma - an example of a user pragma
9 use mypragma; # Enable the pragma
11 mypragma::in_effect() # returns true; pragma is enabled
15 mypragma::in_effect() # returns false; pragma is not enabled
19 An example of how to write a pragma.
41 my $hinthash = (caller(0))[10];
42 return $hinthash->{mypragma};