File Coverage

blib/lib/CPU/x86_64/InstructionWriter/LazyEncode.pm

Criterion	Covered	Total	%
statement	22	29	75.8
branch	9	18	50.0
condition	2	6	33.3
subroutine	8	10	80.0
pod	3	6	50.0
total	44	69	63.7

package CPU::x86_64::InstructionWriter::LazyEncode;
our $VERSION = '0.005'; # VERSION
use strict;
use warnings;
use Carp;
use parent 'CPU::x86_64::InstructionWriter::Label';

# ABSTRACT: Object representing a partially encoded instruction


sub name {
	@_ > 1 && croak "Read-only";
	$_[0]{name} // do {
		my $op= $_[0]{caller}? $_[0]{caller}[3] : 'instruction';
		$op =~ s/.*:://;
		$op . " at start+".$_[0]{offset};
	}
}

sub encoder { @_ > 1 && croak "Read-only"; $_[0]{encoder} }
sub unknown { @_ > 1 && croak "Read-only"; $_[0]{unknown} }
sub caller  { @_ > 1 && croak "Read-only"; $_[0]{caller} }
sub target  { @_ > 1 && croak "Read-only"; $_[0]{target} }


sub clone_into_writer {
	my ($self, $writer, $offset, $label_map)= @_;
	my $new= bless {
		%$self,
		relative_to => $writer->start_address,
		offset => $self->offset + $offset,
		target => !$self->target? undef : $label_map->{$self->target},
		unknown => !$self->unknown? undef
			: $self->unknown->clone_into_writer($writer, $offset, $label_map)
	}, ref $self;
	$new->unknown->instruction($new)
		if $new->unknown && $new->unknown->can('instruction');
	$new;
}

1;

__END__