The requested URL was not found on this server.
Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request.
0 li~ XEpNF n __ ub &=LV[( < package Opcode; use 5.006_001; use strict; our($VERSION, @ISA, @EXPORT_OK); $VERSION = "1.23"; use Carp; use Exporter (); use XSLoader; BEGIN { @ISA = qw(Exporter); @EXPORT_OK = qw( opset ops_to_opset opset_to_ops opset_to_hex invert_opset empty_opset full_opset opdesc opcodes opmask define_optag opmask_add verify_opset opdump ); } sub opset (;@); sub opset_to_hex ($); sub opdump (;$); use subs @EXPORT_OK; XSLoader::load(); _init_optags(); sub ops_to_opset { opset @_ } # alias for old name sub opset_to_hex ($) { return "(invalid opset)" unless verify_opset($_[0]); unpack("h*",$_[0]); } sub opdump (;$) { my $pat = shift; # handy utility: perl -MOpcode=opdump -e 'opdump File' foreach(opset_to_ops(full_opset)) { my $op = sprintf " %12s %s\n", $_, opdesc($_); next if defined $pat and $op !~ m/$pat/i; print $op; } } sub _init_optags { my(%all, %seen); @all{opset_to_ops(full_opset)} = (); # keys only local($_); local($/) = "\n=cut"; # skip to optags definition section ; $/ = "\n="; # now read in 'pod section' chunks while() { next unless m/^item\s+(:\w+)/; my $tag = $1; # Split into lines, keep only indented lines my @lines = grep { m/^\s/ } split(/\n/); foreach (@lines) { s/--.*// } # delete comments my @ops = map { split ' ' } @lines; # get op words foreach(@ops) { warn "$tag - $_ already tagged in $seen{$_}\n" if $seen{$_}; $seen{$_} = $tag; delete $all{$_}; } # opset will croak on invalid names define_optag($tag, opset(@ops)); } close(DATA); warn "Untagged opnames: ".join(' ',keys %all)."\n" if %all; } 1; __DATA__ =head1 NAME Opcode - Disable named opcodes when compiling perl code =head1 SYNOPSIS use Opcode; =head1 DESCRIPTION Perl code is always compiled into an internal format before execution. Evaluating perl code (e.g. via "eval" or "do 'file'") causes the code to be compiled into an internal format and then, provided there was no error in the compilation, executed. The internal format is based on many distinct I