[Summary view] [Print] [Text view]

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