File Coverage

lib/Device/ParallelPort/drv/dummy_byte.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	2	4	50.0
total	29	31	93.5

package Device::ParallelPort::drv::dummy_byte;
use strict;
use Carp;

=head1 NAME

Device::ParallelPort::drv::dummy_byte - Dummy driver. Pretend to work.

=head1 DESCRIPTION

This is purely used for testing the system and not really useful.

=head1 CAPABILITIES

None what so ever. Basically just store bytes in an array !

=head1 COPYRIGHT

Copyright (c) 2002,2004 Scott Penrose. All rights reserved.
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=head1 AUTHOR

Scott Penrose L, L

=head1 SEE ALSO

L

=cut

use base qw/Device::ParallelPort::drv/;

sub init {
        my ($this, @params) = @_;
        $this->{BYTES} = [];
}

sub INFO {
        return {
                'os' => 'any',
                'type' => 'byte',
        };
}

sub set_byte {
        my ($this, $byte, $val) = @_;
        $this->{BYTES}[$byte] = $val;
}

sub get_byte {
        my ($this, $byte) = @_;
	if (!defined($this->{BYTES}[$byte])) {
		$this->{BYTES}[$byte] = chr(0);
	}
        return $this->{BYTES}[$byte];
}

1;