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.