perl/lib/Nasm/insns/Operands.pm

   1 =head1 NAME
   2
   3 Nasm::insns::Operands
   4
   5 =cut
   6
   7 package Nasm::insns::Operands;
   8 use strict;
   9 use warnings;
  10 use Scalar::Util 'reftype';
  11
  12 =head2 new
  13
  14 Creates a new Nasm::insns::Operands object
  15
  16 =cut
  17
  18 sub new{
  19   my( $class, $string ) = @_;
  20   $string =~ s/^ \s+  //gx;
  21   $string =~ s/  \s+ $//gx;
  22
  23   if( $string eq 'ignore' ){
  24     return bless \$string, $class;
  25   }
  26
  27   my $self = bless [], $class;
  28
  29
  30   return $self unless $string;
  31   return $self if $string eq 'void';
  32
  33   @$self = split ',', $string;
  34
  35   return $self;
  36 }
  37
  38
  39 =head2 string
  40
  41 Stringifys an Nasm::insns::Operands object
  42
  43 =cut
  44
  45 sub string{
  46   my( $self ) = @_;
  47
  48   return '' if reftype $self eq 'SCALAR';
  49   return '' if reftype $self eq 'REF';
  50
  51   #return '()' unless @$self;
  52   return '('.join(',',@$self).')';
  53 }
  54 1;