perl/insns.pl

   1 #! /usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use lib qw'lib';
   5
   6 use Nasm::insns;
   7
   8 my $self = Nasm::insns->new('insns.dat');
   9 __END__
  10 use Data::Dump 'dump';
  11
  12 use 5.010;
  13
  14 say dump $self;