[perl5.git] / t / lib / mypragma.pm

=head1 NAME

mypragma - an example of a user pragma

=head1 SYNOPSIS

In your code

    use mypragma; # Enable the pragma
    
    mypragma::in_effect() # returns true; pragma is enabled

    no mypragma;
    
    mypragma::in_effect() # returns false; pragma is not enabled

=head1 DESCRIPTION

An example of how to write a pragma.

=head1 AUTHOR

Rafael Garcia-Suarez

=cut

package mypragma;

use strict;
use warnings;

sub import {
    $^H{mypragma} = 42;
}

sub unimport {
    $^H{mypragma} = 0;
}

sub in_effect {
    my $hinthash = (caller(0))[10];
    return $hinthash->{mypragma};
}

1;
Commit	Line	Data
32645610 NC	1	=head1 NAME
	2
	3	mypragma - an example of a user pragma
	4
	5	=head1 SYNOPSIS
	6
	7	In your code
	8
	9	use mypragma; # Enable the pragma
	10
	11	mypragma::in_effect() # returns true; pragma is enabled
	12
	13	no mypragma;
	14
	15	mypragma::in_effect() # returns false; pragma is not enabled
	16
	17	=head1 DESCRIPTION
	18
	19	An example of how to write a pragma.
	20
	21	=head1 AUTHOR
	22
	23	Rafael Garcia-Suarez
	24
	25	=cut
	26
	27	package mypragma;
	28
	29	use strict;
	30	use warnings;
	31
	32	sub import {
fd9f6265	33	$^H{mypragma} = 42;
32645610 NC	34	}
	35
	36	sub unimport {
	37	$^H{mypragma} = 0;
	38	}
	39
	40	sub in_effect {
	41	my $hinthash = (caller(0))[10];
	42	return $hinthash->{mypragma};
	43	}
	44
	45	1;