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<scottp@dd.com.au>, L<http://linux.dd.com.au/>
=head1 SEE ALSO
L<Device::ParallelPort>
=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;