The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

HiPi::GPIO::PAD1

VERSION

Version 0.01

SYNOPSYS

 use HiPi::Constant qw( :pinmode );
 use HiPi::GPIO::PAD1;

 my $pad1 = HiPi::GPIO::PAD1->new;
 
 # Set RPi Pad 1 header pins 8 & 10 to output and value high
 
 for ( 8, 10 ) {
     $pad1->set_pin_mode($_, PIN_MODE_OUTPUT);
     $pad1->set_pin($_);
 }
  ...
  ...
 
 # we used the standard UART pins so we ought to set
 # them back to defaults
 
 $pad1->prepare_UART0();

DESCRIPTION

See pod for HiPi::GPIO for full usage and methods.

LICENSE

This work is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3 of the License, or any later version.

License Note

I would normally release any Perl code under the Perl Artistic License but this module wraps several GPL / LGPL C libraries and I feel that the licensing of the entire distribution is simpler if the Perl code is under GPL too.

AUTHOR

Mark Dootson, <mdootson at cpan.org>

COPYRIGHT

Copyright (C) 2012-2013 Mark Dootson, all rights reserved.