NAME
    pragma - A pragma for controlling other user pragmas

DESCRIPTION
    The "pragma" pragma is a module which influences other user pragmata
    such as lint. With Perl 5.10 you can create user pragmata and the
    "pragma" pragma can modify and peek at other pragmata.

A basic example
    Assume you're using the "myint" pragma mentioned in perlpragma. For
    ease, that pragma is duplicated here. You'll see it sets the "myint"
    value to 1 when on and 0 when off.

        package myint;
        
    use strict;
        use warnings;
        
    sub import {
            $^H{myint} = 1;
        }
        
    sub unimport {
            $^H{myint} = 0;
        }
        
    1;

    Other code might casually wish to dip into "myint":

        no pragma 'myint';      # delete $^H{myint}
        use pragma myint => 42; # $^H{myint} = 42

        print pragma->peek( 'myint' ); # prints '42'

    The above could have been written without the "pragma" module as:

        BEGIN { delete $^H{myint} }
        BEGIN { $^H{myint} = 42 }

        print $^H{myint};

CLASS METHODS
    "use pragma PRAGMA => VALUE"
    "pragma->import( PRAGMA => VALUE )"
    "pragma->poke( PRAGMA => VALUE )"
        Sets "PRAGMA"'s value to "VALUE".

    "no pragma PRAGMA"
    "pragma->unimport( PRAGMA )"
        Unsets "PRAGMA".

    "pragma->peek( PRAGMA )"
        Returns the current value of "PRAGMA".

SUBCLASSING
    All methods may be subclassed.