This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add socklen_t probe; Configure maintenance.
[perl5.git] / ext / Opcode / ops.pm
1 package ops;
2
3 use Opcode qw(opmask_add opset invert_opset);
4
5 sub import {
6     shift;
7     # Not that unimport is the prefered form since import's don't
8         # accumulate well owing to the 'only ever add opmask' rule.
9         # E.g., perl -Mops=:set1 -Mops=:setb is unlikely to do as expected.
10     opmask_add(invert_opset opset(@_)) if @_;
11 }
12
13 sub unimport {
14     shift;
15     opmask_add(opset(@_)) if @_;
16 }
17
18 1;
19
20 __END__
21
22 =head1 NAME
23
24 ops - Perl pragma to restrict unsafe operations when compiling
25
26 =head1 SYNOPSIS  
27
28   perl -Mops=:default ...    # only allow reasonably safe operations
29
30   perl -M-ops=system ...     # disable the 'system' opcode
31
32 =head1 DESCRIPTION
33
34 Since the ops pragma currently has an irreversible global effect, it is
35 only of significant practical use with the C<-M> option on the command line.
36
37 See the L<Opcode> module for information about opcodes, optags, opmasks
38 and important information about safety.
39
40 =head1 SEE ALSO
41
42 Opcode(3), Safe(3), perlrun(3)
43
44 =cut
45