view release on metacpan or  search on metacpan

lib/Acme/MetaSyntactic/opcodes.pm  view on Meta::CPAN

package Acme::MetaSyntactic::opcodes;
use strict;
use Acme::MetaSyntactic::List;
our @ISA = qw( Acme::MetaSyntactic::List );
our $VERSION = '1.000';

# get the list from the current perl
use Opcode qw( opset_to_ops full_opset );
__PACKAGE__->init(
    { names => join( " ", map { uc "OP_$_" } opset_to_ops(full_opset) ) } );

1;

__END__

=head1 NAME

Acme::MetaSyntactic::opcodes - The Perl opcodes theme

=head1 DESCRIPTION