![]() ![]() ![]() ![]() |
|
HiPi::BCM2835::Pin provides an implementation of HiPi::Pin for the HiPi::BCM2835
The module inherits all of its methods from HiPi::Pin.
use 5.14.0; # for say use HiPi::BCM2835; use HiPi::Constant qw( :raspberry ); my $bcm = HiPi::BCM2835->new(); my $pin = $bcm->get_pin( RPI_PAD1_PIN_11 ); my $mode = $pin->mode(); if( $mode & RPI_PINMODE_OUTP ) { # set high $pin->value(1); } elsif( $mode & RPI_PINMODE_INPT ) { say q(Current Pin Value is :) . $pin->value(); # set rising edge interrupt $pin->interrupt( RPI_INT_RISE ); }