File Coverage

blib/lib/CPU/Emulator/DCPU16/Device/Console.pm

Criterion	Covered	Total	%
statement	16	20	80.0
branch	0	4	0.0
condition			n/a
subroutine	5	7	71.4
pod	4	4	100.0
total	25	35	71.4

package CPU::Emulator::DCPU16::Device::Console;
use strict;
use base qw(CPU::Emulator::DCPU16::Device);

=head1 NAME

CPU::Emulator::DCPU16::Device::Console - mapped console device for the DCPU16 emulator

=head1 SYNOPSIS

    $cpu->map_device('CPU::Emulator::DCPU16::Device::Console', $start_addr, $end_addr);

=head1 DESCRIPTION

=head1 METHODS

=cut

=head2 new

Create a new console

=cut
sub new {
    my $self = shift->SUPER::new(@_);
    $self->{_console} = ""x($self->end-$self->start);
    $self;
}

=head2 set

Set the address of the mapped device to value.

=cut
sub set {
    my $self = shift;
    my $addr = shift;
    my $val  = shift;
    substr $self->{_console}, $addr-$self->start, 1, chr($val);
}

=head2 get

Get the value at address of the mapped device.

=cut
sub get {
    my $self = shift;
    my $addr = shift;
    ord substr $self->{_console}, $addr-$self->start, 1;
}

=head2 tick

Called after each instruction is called.

Prints out the current console.

=cut
sub tick {
    my $self = shift;
    print "\r".$self->{_console} if defined $self->{_console};
}

sub DESTROY {
    my $self = shift;
    print "\r".$self->{_console}."\n" if defined $self->{_console};
}

1;