File Coverage

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

Criterion	Covered	Total	%
statement	9	18	50.0
branch	0	12	0.0
condition	0	3	0.0
subroutine	3	7	42.8
pod	3	4	75.0
total	15	44	34.0

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

# ABSTRACT: Object representing a jump target in the code


sub relative_to { @_ > 1 && carp "Read-only"; $_[0]{relative_to} }
sub name  { @_ > 1 && carp "Read-only"; $_[0]{name} }
sub offset { @_ > 1 && carp "Read-only"; $_[0]{offset} }
sub value {
	my $offset= $_[0]{offset};
	my $rel= !defined $_[0]{relative_to}? 0
		: ref $_[0]{relative_to}? $_[0]{relative_to}->value
		: $_[0]{relative_to};
	defined $offset && defined $rel? $offset + $rel : undef;
}


1;

__END__