File Coverage

blib/lib/PINE64/GPIO.pm

Criterion	Covered	Total	%
statement	3	44	6.8
branch	0	14	0.0
condition	0	9	0.0
subroutine	1	6	16.6
pod	5	5	100.0
total	9	78	11.5

#!/usr/bin/perl -w
use strict;

package PINE64::GPIO;

our $VERSION = '0.92';

#global vars

#array of system gpio pin numbers
my @line_nums = (227,226,362,71,233,76,64,65,66,229,230,69,73,80,32,33,72,77,78,79,67,231,68,70,74,75);

#gpio index num. maps to line_nums system gpio number
my $iox;

sub new{
	my $class = shift;
	my $self = bless {}, $class;
	return $self;
}#end new

sub gpio_enable{
	my $ind = $_[1];
	$iox = $line_nums[$ind];

	my $gpiosz = @line_nums;

	my $direction = $_[2];

	#err chk
	if($ind < 0 || $ind > $gpiosz){
		print "INVALID GPIO RANGE\n";
		exit;
	}#end if invalid index
	if($direction ne 'in' && $direction ne 'out'){
		print "INVALID DIRECTION\n";
		exit;
	}#end if invalid direction

	#write gpio pin val to export file
	open(EF, ">", "/sys/class/gpio/export") or die $!;
	print EF $iox;
	close(EF);

	#set direction of gpio pin
	open(GF, ">", "/sys/class/gpio/gpio$iox/direction") or die $!;
	print GF $direction;
	close(GF);

}#end gpio_enable

sub gpio_disable{
	#takes gpio pin num as arg
	my $ind = $_[1];

	#map pin num to system gpio number
	$iox = $line_nums[$ind];

	#unexport gpio pin
	open(UE, ">", "/sys/class/gpio/unexport");
	print UE $iox;
	close UE;

}#end gpio_disable

sub gpio_read{
	#gpio number as arg, returns direction in/out
	my $ind = $_[1];
	$iox = $line_nums[$ind];

	my $value = '';

	#reads state of gpio pin
	open(GS, "/sys/class/gpio/gpio$iox/value") or die $!;
	while(){ $value = $_; };
	#print "$iox val: $value";
	close(GS);

	if($value == 0 || $value == 1){
		return $value;
	}#end unless
	else{
		print "ERROR: Undefined value on GPIO $iox\n";
		exit;
	}#end else
}#end gpio_read

sub gpio_write{
	my $ind = $_[1];
	$iox = $line_nums[$ind];

	my $value = $_[2];

	#write value to gpio pin
	open(GV, ">", "/sys/class/gpio/gpio$iox/value") or die $!;
	print GV $value;
	close(GV);
}#end gpio_write

1;
__END__