+ $fh //= \*STDOUT; # uncoverable condition right
+
+ die "addr_bits + type_bits >= 16\n"if $self->{addr_bits} + $self->{type_bits} > 16;
+
+ my $length = @{$self->{memory}};
+ print $fh pack 'n', $length or croak "Failed to print memory size: $!"; # uncoverable branch true
+ for (@{$self->{memory}}) {
+ print $fh pack 'n', $_ or croak "Failed to print memory: $!" # uncoverable branch true
+ }
+}
+
+sub print_verilog {
+ my ($self, $fh) = @_;
+ $fh //= \*STDOUT; # uncoverable condition right