File Coverage

blib/lib/Acme/MetaSyntactic/opcodes.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Acme::MetaSyntactic::opcodes;
2 2     2   1792965 use strict;
  2         9  
  2         128  
3 2     2   520 use Acme::MetaSyntactic::List;
  2         16748  
  2         122  
4             our @ISA = qw( Acme::MetaSyntactic::List );
5             our $VERSION = '1.000';
6              
7             # get the list from the current perl
8 2     2   1719 use Opcode qw( opset_to_ops full_opset );
  2         14168  
  2         459  
9             __PACKAGE__->init(
10             { names => join( " ", map { uc "OP_$_" } opset_to_ops(full_opset) ) } );
11              
12             1;
13              
14             __END__