File Coverage

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

Criterion	Covered	Total	%
statement	13	20	65.0
branch	2	8	25.0
condition	0	3	0.0
subroutine	5	7	71.4
pod	3	4	75.0
total	23	42	54.7

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

# ABSTRACT: Placeholder for a constant that will be assembled


sub new {
	my ($class, %fields)= @_;
	bless \%fields, $class;
}

sub name { $_[0]{name}= $_[1] if @_ > 1; $_[0]{name} }

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;
}

sub value { $_[0]{value}= $_[1] if @_ > 1; $_[0]{value} }

1;

__END__