package Opcode;
-require 5.005_64;
+use 5.006_001;
+
+use strict;
our($VERSION, $XS_VERSION, @ISA, @EXPORT_OK);
-$VERSION = "1.04";
+$VERSION = "1.05";
$XS_VERSION = "1.03";
-use strict;
use Carp;
use Exporter ();
use XSLoader ();
-@ISA = qw(Exporter);
BEGIN {
+ @ISA = qw(Exporter);
@EXPORT_OK = qw(
opset ops_to_opset
opset_to_ops opset_to_hex invert_opset
=item an operator set (opset)
-An I<opset> as a binary string of approximately 43 bytes which holds a
+An I<opset> as a binary string of approximately 44 bytes which holds a
set or zero or more operators.
The opset and opset_to_ops functions can be used to convert from
=item opcodes
In a scalar context opcodes returns the number of opcodes in this
-version of perl (around 340 for perl5.002).
+version of perl (around 350 for perl-5.7.0).
In a list context it returns a list of all the operator names.
(Not yet implemented, use @names = opset_to_ops(full_opset).)
list lslice splice push pop shift unshift reverse
- cond_expr flip flop andassign orassign and or xor
+ cond_expr flip flop andassign orassign dorassign and or dor xor
warn die lineseq nextstate scope enter leave setstate
entertry leavetry -- can be used to 'hide' fatal errors
+ custom -- where should this go
+
=item :base_math
These ops are not included in :base_core because of the risk of them being