perl/lib/Nasm/Regs/Format.pm

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