File Coverage

blib/lib/Device/Chip/SSD1306/I2C.pm

Criterion	Covered	Total	%
statement	38	43	88.3
branch			n/a
condition	1	2	50.0
subroutine	10	11	90.9
pod	1	5	20.0
total	50	61	81.9

#  You may distribute under the terms of either the GNU General Public License
#  or the Artistic License (the same terms as Perl itself)
#
#  (C) Paul Evans, 2015-2023 -- [e-mail]

use v5.26;
use warnings;
use Object::Pad 0.800;

package Device::Chip::SSD1306::I2C 0.14;
class Device::Chip::SSD1306::I2C
   :isa(Device::Chip::SSD1306);

use constant PROTOCOL => "I2C";

use constant DEFAULT_ADDR => 0x3C;

=encoding UTF-8

=head1 NAME

C - use a F OLED driver in I²C mode

=head1 DESCRIPTION

This L subclass provides specific communication to an
F chip attached via I²C.

For actually interacting with the attached module, see the main
L documentation.

=cut

field $addr;

method mount ( $adapter, %params )
{
   $addr = delete $params{addr} // DEFAULT_ADDR;

   return $self->SUPER::mount( $adapter, %params );
}

method I2C_options
{
   return (
      addr => $addr,
   );
}

# passthrough
method power ( $on ) { $self->protocol->power( $on ) }

method send_cmd ( @vals )
{
   my $final = pop @vals;

   $self->protocol->write( join "", ( map { "\x80" . chr $_ } @vals ),
      "\x00" . chr $final );
}

method send_data ( $bytes )
{
   $self->protocol->write( "\x40" . $bytes )
}

=head1 AUTHOR

Paul Evans

=cut

0x55AA;