view release on metacpan or  search on metacpan

X86/MemRegion.pm  view on Meta::CPAN

package Disassemble::X86::MemRegion;

use 5.006;
use strict;
use warnings;
use integer;

sub new {
  my ($class, %args) = @_;
  my $self = bless { } => $class;
  my $mem = $args{mem};
  defined $mem or $mem = "";
  $self->{mem}   = $mem;
  $self->{len}   = length($mem);
  $self->{start} = $args{start} || 0;
  $self->{end}   = $self->{start} + $self->{len};
  return $self;
} # new

sub mem   { $_[0]->{mem}   }