perl/lib/Nasm/Regs/Format.pm

   1 =head1 NAME
   2
   3 Nasm::Regs::Format
   4
   5 =cut
   6
   7 package Nasm::Regs::Format;
   8 use strict;
   9 use warnings;
  10
  11 #our @list = qw'h c fc vc dc dh';
  12
  13 =head2 format
  14
  15 =cut
  16
  17 sub format{
  18   my($regs,$fmt) = @_;
  19   ## no critic
  20   no strict 'refs';
  21
  22   my $package = __PACKAGE__.'::'.uc($fmt);
  23   eval "require $package;";
  24   ## use critic
  25   if($@){
  26     die qq[Failed to load format "$fmt"\n];
  27   }
  28
  29   my $return;
  30
  31   eval{
  32     $return = *{$package.'::_format'}{CODE}->($regs);
  33   };
  34   if($@){
  35     die qq[Problem with format plugin "$fmt":\n\t$@];
  36   }
  37   return $return;
  38 }
  39
  40 1;