File Coverage

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

Criterion	Covered	Total	%
statement	9	14	64.2
branch	0	4	0.0
condition	0	3	0.0
subroutine	3	4	75.0
pod	0	1	0.0
total	12	26	46.1

package CPU::x86_64::InstructionWriter::Unknown;
$CPU::x86_64::InstructionWriter::Unknown::VERSION = '0.000_002'; # TRIAL

$CPU::x86_64::InstructionWriter::Unknown::VERSION = '0.000002';use Moo 2;
use Carp;
use Scalar::Util 'refaddr';

# ABSTRACT: Placeholder for a constant that will be assembled

has name => ( is => 'rw' );

sub bits {
	my $self= shift;
	return $self->{bits} unless @_;
	my $val= shift;
	!defined $self->{bits} || $self->{bits} == $val
		or croak "Can't change bits from $self->{bits} to $val for unknown($self->{name})";
	$self->{bits}= $val;
}

has value => ( is => 'rw' );

1;

__END__